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This  Appendix  describes  the  Program  Logic  of  the  Airport  Land- 
side  Simulation  Model  (ALSIM)  AUXILIARY  and  MAIN  Programs.  Both 
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prior  to  the  MAIN  Program  to  create  GPSS  transactions  representing 
Enplaning  Passenger  groups  from  the  input  flight  schedule.  The 
transactions  are  written  on  a  JOBTAPE  file  for  subsequent  use  by  the 
MAIN  program.  The  MAIN  Program  creates  greeter  and  deplaning 
passenger  transactions  and  enacts  the  movements  of  all  passengers 
and  visitors  through  the  landisdeyrv 
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SUMMARY 


This  document  provides  a  detailed  description  of  the  MAIN  and 
AUXILIARY  programs  of  the  Airport  Landside  Simulation  Model  (ALSIM) . 
Both  programs  are  written  in  GPSS-V.  The  MAIN  program  simulates  the 
movement  of  enplaning  and  deplaning  passengers  through  the  landside. 
Statistics  are  obtainable  from  this  program  for  every  simulated 
facility.  These  include  queue  length  averages  and  maxima,  queueing 
time  averages  and  distributions,  and  service  characteristics  of  the 
facility. 

The  AUXILIARY  program  is  operated  prior  to  the  MAIN  program  to 
generate  and  store  transactions  representing  enplaning  passengers. 
These  transactions  are  fed  into  the  MAIN  program  as  the  simulation 
clock  advances  to  the  time  of  arrival  on  the  landside  by  the  sim¬ 
ulated  passenger. 

This  document  describes  the  general  structure,  input  variables 
and  matrices  used  by  each  program.  The  use  of  passenger  transaction 
parameters  and  a  detailed  description  of  program  logic  are  also 
contained  in  this  document.  Flowcharts  and  listings  for  each  pro¬ 
gram  are  exhibited. 
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AUXILIARY  PROGRAM 


General  Description 

The  Auxiliary  Program  shown  in  Figure  A-l  generates 
transactions  representing  enplaning  passenger  groups.  These  are 
stored  on  a  JOBTAPE  and  utilized  by  the  main  simulation  program 
when  required.  This  program  assigns  attributes  to  the  •; 
transaction  parameters  for  representing  ground  transportation 
modal  choice,  ticketed  or  non-ticketed  status,  passenger 
group  size  and  number  of  accompanying  well  wishers.  The 
program  contains  three  sections,  (1)  A  Program  Definition 
Statements  Section,  (2)  Enplaning  Passenger  Creation  Section 
and,  (3)  A  Program  Control  Section.  The  Program  Definition 
Statements  Section  defines  matrix  sizes,  cumulative  distribution 
functions  and  simulation  variables.  The  Enplaning  Passenger 
Creation  Section  generates  enplaning  passenger  transactions 
and  assigns  well  wisher  numbers  and  transaction  attributes. 

The  program  control  section  initiates  linkage  programs  between 
the  GPSS  Auxiliary  Program  and  the  FORTRAN  supporting  sub¬ 
program  FORTM.  It  also  creates  dummy  transactions  to  begin 
and  end  the  JOBTAPE. 

Program  Definition  Statement  Section 

The  section  begins  with  an  R  MULT  statement  to 
specify  starting  numbers  for  random  number  generator  multi¬ 
pliers.  The  subrouting  FORTM  is  kept  resident  in  core  during 
the  operation  of  this  simulation  by  a  LOAD  block.  Halfword 
save  value  1  is  defined  as  CLKXH  by  an  EQU  statement. 
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Data  required  for  Auxiliary  Program  execution  is 
contained  in  three  matrices  and  five  functions.  Matrices 
used  are:  halfword  matrix  MHl,  the  flight  schedule;  halfword 
matrix  MH4,  the  percent  of  enplaned  passengers  preticketed; 
and,  floating  point  matrix  ML2,  ground  transaction  modal 
choice  percentages.  Information  contained  in  these  matrices 
is  provided  by  input  data  read  and  placed  in  the  matrix  elements 
by  FORTM. 

The  numbers  of  columns  of  MHl,  MH4 ,  and  ML2  are 
represented  by  the  entity  symbols  CMH01,  CMH04  and  CML02 
respectively.  These  are  assigned  numerical  values  by  SYN 
statements.  These  values  will  be  transferred  to  FORTM  by 
the  use  of  a  mnemonic  link  function  which  appears  in  the 
program  control  section  and  the  assembler  subprogram  MNLINK 
called  by  FORTM 

Matrix  type  and  dimensions  of  MHl,  MH4 ,  and  ML2  are 
specified  by  matrix  definition  statements.  The  column  numbers 
used  must  agree  with  preceding  SYN  statements.  Tables  1  and 
2  describe  matrix  contents. 

Functions  used  by  this  program  are:  ARV1F  and  ARV2F, 
arrival  times  at  the  airport  landside  of  originating  passengers 
PPEF,  passengers  per  enplaning  group;  WWPPF,  well  wishers  per  . 
enplaning  group  and  T0S1F ,  the  arrival  times  of  transfer  pass¬ 
engers  at  a  concourse. 

Because  of  a  time  dependence  in  arrival  rates,  two 
cumulative  distribution  functions  are  used  to  specify  the 


Auxiliary  Program 
Table  1 


Contents  of  Flight  Table  Matrix  MHl 


Column 

1 


2 

3 

4 

5 

6 

7 

8 
9 

10 


11 

12 


Usage  FORTRAN  Data  Item 

Designates  arriving  or  departing  ARRV 

flight.  -  Indicates  completion  of  DEPT 

aircraft  bag  unloading  for  arri¬ 
val  flights. 

0  *  Arriving  Flight 

1  *  Departing  Flight 

2  =  Bag  unloading  complete 
-1  =  End  of  table 

Flight  number.  FLTNO 

Airline  number.  AIRLIN 

Scheduled  arrival  or  departure  TIME 

time. 


Number  of  deplaning  passengers  met 
by  private  car. 

Flight  arrival  or  departure  time  in 
minutes  relative  to  simulation  start 


time. 

.Domestic#  commuter,  or  international  '  DOM  =  1 
flight.  Domestic  is  default  value.  INT  *  1 

COM  *  1 

Aircraft  type.  AC 

Gate  number.  GATE 

Numbers  of  orignating  or  terminating  PAX  -  TPAX 
passengers. 

Transfer  passengers.  TPAX(l) 


(a)  Bag  claim  area  for  arriving  flight,  (a)  BAG 


(b)  Number  of  enplaning  passengers  (b)  No  input 

waiting  at  departure  lounge  for  data, 

boarding. 
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Table  1  (cont.) 


Column 


1 

FORTRAN  Data  Item.  ; 


13  Number  of  through  passengers  on  TPAX(2) 

flight  using  terminal  facilities. 

14  Total  terminating  bags  on  arriving 

flight. 

15  Total  transfer  bags  on  arriving 

flight. 

16  Number  of  passengers  originating  TPAX(3) 

from  or  proceeding  to  flights 
outside  of  simulated  system. 
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Table  2 


Contents  of  Matrices  MH4  and  ML2 

MH4  FORTRAN  Input 

Element  Usage  %  Preticketed  Card 


1.1  Percent  of  enplaning  passengers  DOM 

preticketed  for  domestic  flights. 

1.2  Percent  of  preticketed  enplaning  DQMDIR 

domestic  passengers  proceeding 
from  terminal  entrance  directly 
to  security. 

2.1  Same  as  1,1  for  commuter  flights.  COM 

2.2  Same  as  1,2  for  commuter  flights.  COMDIR 

3.1  Same  as  1,1  for  international  INT 

flights. 

3.2  Same  as  1,2  for  international  INTDIR 

flights 


n  *  1/2/3  DOM/COM/  INT  TORT  RAN  Input 


Percent  of  enplaning  passengers  PVTCAR 

using  auto  mode 

Percent  of  enplaning  passengers  CRENT 

using  rental  car. 

Percent  of  enplaning  passengers  BUS 

using  bus  or  limousine. 

Percent  of  enplaning  passengers  TAXI 

using  taxi. 


ML2 

Element 

n,l 

n,2 

n,3 

n,  4 
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starting  times  of  transactions  representing  originating  pass- 
engers.  ARV1F  is  the  distribution  of  arrival  times  prior  to 
flight  of  passengers  on  flight  departing  between  0905  and  2400 
hours.  ARV2F  is  the  distribution  used  for  all  other  departure 
times. 

The  arrival  time  distribution,  T0S1F,  is  used  for 
simulation  of  transfer  passengers  when  the  system  modeled  does 
not  include  all  concourses  of  an  airport  under  study.  The 
transfer  passengers  in  this  case  originate  outside  the  system. 
This  function  provides  a  starting  time  for  transactions  re¬ 
presenting  this  passenger  type. 

Variable  FLT1V  and  FLT2V  delay  the  entry  of  a  trans¬ 
action  into  the  simulation  until  150  and  85  minutes  respectively. 
FLT1V  is  used  for  transactions  representing  orignating  passengers 
of  flights  departing  between  0905  and  2400.  FLT2V  is  applied 
to  all  other  originating  passenger  transactions  representing 
transfers  outside  the  system  until  40  minutes  before  flight 
departure.  A  fourth  variable,  TOS2V  is  equated  to  MHl (PHI ,16 ) -1. 
This  is  the  number  of  passengers  orignating  outside  the  system, 
minus  one . 

Enplaning  Passenger  Creation  Section 

A  single  transaction  representing  all  departing  flights 
is  generated.  This  has  a  priority  level  10  and  contains  11 
halfword  parameters  and  14  byte  parameters.  This  transaction 
will  later  be  split  to  represent  each  flight  and  subsequently 
split  to  represent  individual  passenger  groups.  Table  3  lists 
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Table  3. 


Passenger  Transaction  Parameters 
Halfword  Parameters 

PH  1  Flight  table  row  number 

2  Current  location,  point  number 

3  a.  Maximum  random  number  from  subroutine  BAGS 

for  deplaning  passengers, 
b.  Passenger  storage  number  in  deplaning  curb 
logic. 

4  Address  parameter. 

5  Scratch  parameter.  Initially  contains  gate 
number  for  deplaning  passenger.  Used  to 
designate  GPSS  storage  and  queue  numbers 
during  passenger  processing. 

6  a.  User  chain  number  for  bag  claim  simulation, 
b.  storage  number  of  deplaning  curb. 

7  Facility  matrix,  MH9,  row  number  for  current 
processing  operation. 

8  Scratch. 

9  Cumulative  walking  time. 

10  Transaction  sequence  number  for  passenger  and 
greeter  matching. 

11  Cumulative  passenger  waiting  time. 

Byte  Parameters 

PB  1  GPSS  number  of  processing  function  assigned 
to  this  transaction. 

2  Pointer  indicating  current  step  of  processing  function. 

3  Flag  indicating  type  of  flight  (1  *  Domestic, 

2  *  Commuter,  3  *  International) . 

4  Number  of  bags. 

5  Number  of  passengers  and  visitors  in  party 

6  Mode  of  ground  transportation  (  PVTCAR  CURB-1, 

PVTCAR  PARK-2,  RENTAL-3,  BUS  or  LIMO-4,  TAXI-5) 
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Table  3  (cont.) 


PB  7  Flag  indicating  deplaning  or  enplaning  passenger. 
0  *  Deplaning  1  *  Enplaning 

8  Flag  indicating  category  of  deplaning  passenger. 

1  »  Terminating  2  *  Transfer 
3  *  Transmit  4  *  Transfer  out  of  system 

9  Flag  to  designate  ticketed  or  non-ticketed 
status . 


10  Car  rental  agency  number. 

11  Number  of  facility  type  currently  entered  by 
transaction. 

12  Flag  to  designate  meeting  location  of  deplaning 
passenger  and  greeter. 

Gate  =1 

Bag' Claim  *  2 
Ticketing  *  3 

13  Passengers  in  party. 

14  a.  GPSS  number  of  bag  per  passenger  distribution 

function. 

b.  Parking  lot  number. 
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the  information  contained  in  the  transaction  parameters  des¬ 
cribing  the  passenger  group. 

Byte  parameters  2  and  7  are  assigned  a  value  of  1,  to 
respectively  initialize  the  process  function  pointer  and  mark 
the  transaction  as  a  representation  of  an  enplaning  passenger. 

At  block  ENPLO,  PHI  is  first  initialized  to  a  value  of  1  and  on 
successive  passes  is  incremented  by  one  to  represent  the  flight 
table  row  subscript. 

A  loop  beginning  at  ENPLO  and  ending  with  the  block 
SPLIT  1,  ENPLO  creates  a  transaction  for  each  departing  flight. 
The  element  PH1,1  of  MH1  is  tested  for  a  negative  value  con¬ 
tained  in  the  row  following  the  last  flight.  The  last  trans¬ 
action  is  terminated  for  this  condition.  All  previous  trans¬ 
actions  are  tested  for  a  value  of  1  in  MHl(PHl,l)  to  determine 
if  the  row  represents  an  arriving- or  departing  flight.  Arriving 
flights  are  ignored  in  the  Auxiliary  Program  and  a  branch  back 
to  ENPLO  is  executed.  Departing  flight  transactions  continue 
to  the  SPLIT  1,  ENPLO  block.  The  parent  transaction  proceeds  to 
the  next  block  and  the  copy  transaction  to  ENPLO  for  the  next 
flight. 

Flight  type  and  gate  number  are  assigned  to  PB3  and 
PH 5  from  columns  7  and  9  of  MHl,  respectively.  A  split  block 
to  generate  two  types  of  enplaning  passengers  sends  one  copy 
to  ENPL3 .  The  first  category  consists  of  transfer  passengers 
originating  outside  of  the  system.  The  model  tests  MH1(PH1,16) 
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1 

for  values  less  than  or  equal  to  zero  to  determine  if  any 
passengers  of  this  class  were  input  to  the  flight  schedule.  I 

i 

If  none,  the  parent  transaction  is  terminated.  For  positive 
values,  PB8  is  assigned  a  value  of  4  to  mark  this  transaction  as 
a  transfer  out  of  the  system  and  PB13  and  PB5  are  set  to  one  to 
indicate  a  single  passenger  with  no  visitors.  The  time  of 
entry  into  the  simulation  is  first  calculated  as  40  minutes 
before  flight  departure  time  by  the  variable  TOS1V.  A  SPLIT 
block  creates  all  of  the  transactions  to  fill  the  number,  TOS2V, 
of  transfers  out  of  the  system  for  this  flight  and  directs  them 
to  the  next  block.  Individual  transactions  are  further  assigned 
a  simulation  entry  time  between  20  and  40  minutes  before  flight 
time  by  delaying  them  a  time  randomly  selected  from  the  function 
TOS1F .  When  the  simulation  clock  advances  to  this  entry  time, 
they  are  transferred  to  the  WRITE  block  for  writing  onto  the 
JOBTAPE. 

At  ENPL3,  transactions  representing  originating  passengers 
test  MH1 (PHI , 10 ) ,  for  a  zero  value  for  this  occurence,  a  default 
value  of  1  is  placed  in  the  element.  Otherwise,  the  program 
branches  to  a  test  of  the  flight  departure  time  in  MHl(PHl,10), 
to  determine  if  it  occurs  between  0000  and  0905.  For  departures 
outside  this  interval,  the  program  branches  to  ENPLl.  Flights 
inside  the  interval  proceed  to  the  next  block  which  holds  the 
transaction  until  85  minutes  before  departure.  Transaction 
parameter  PH8  is  made  equal  to  the  number  of  originating  pass¬ 
engers.  The  number  of  passengers  in  a  party  is  assigned  to  PB13 
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by  a  random  draw  of  function  PPPEF.  These  are  subtracted 
from  the  total  in  PH8.  A  test  is  performed  to  determine  if 
PH8  is  zero  or  negative.  A  positive  value,  indicating  that 
more  passenger  group  transactions  will  be  required,  transfers 
the  transaction  down  to  a  SPLIT  block.  This  creates  a  copy 
transaction  to  represent  another  passenger  group  and  transfers 
it  back  to  assign  PPPEF  to  PB13 .  A  zero  or  negative  value  of 
PH8  allows  the  transaction  to  drop  through  to  the  next  block 
where  the  value  in  this  parameter  is  added  to  PB13  to  adjust 
the  last  party  size.  If  PB13  becomes  negative,  the  value  of 
this  parameter  is  made  equal  to  1.  The  transaction  transfers 
out  of  the  loop  to  an  ADVANCE  block  which  further  delays  the 
transaction  activity  by  an  amount  obtained  from  a  random  draw 
on  function  ARV2F . 

Flights  departing  between  0905  and  2400  are  routed 
to  ENPLl.  The  creation  of  passenger  group  transactions  is 
performed  exactly  as  before  except  that  these  axe  dal  ,yed  in¬ 
variable  FLT1V  and  a  random  draw  on  function  ARV1F. 

After  delays,  all  transactions  proceed  to  ENPL2  for 
a  HELP A  call  to  subroutine  FORTM.  Random  numbers  produced 
by  generators  4  and  5  and  flight  type  in  PB3  are  used 
as  operands.  The  subroutine  assigns  a  preticketed  status  and 

i 

ground  transportation  modal  choice  to  PB9  and  PB6 ,  respectively. 

The  number  of  passengers  in  the  party  is  assigned  to 
PB5.  If  PB6  is  1  or  2,  indicating  a  private  vehicle 
proceeding  to  curbside  or  parking  lot,  well  wishers  are  added 
to  PBS,  based  upon  a  random  draw  on  function  WWPPF. 
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All  transactions  are  written  in  time  sequence  on 
JOBTA1  at  location' WRITE .  These  transactions  are  then 
terminated. 

Program  Control  Section 

A  single  transaction  with  priority  level  127  and  one 
halfword  parameter  is  generated  to  initiate  and,  subsequently, 
to  terminate  the  activity  of  the  Auxiliary  Program.  A  HELPA 
call  to  subroutine  CLINK  initiates  linking  of  this  program  and 
the  supporting  FORTRAN  subroutine  FORTM.  The  next  block  is 
a  HELPA  call  to  FORTM  which  completes  the  linking.  After 
execution  of  this  statement,  any  HELPA  call  to  FORTM  appearing 
in  the  Auxiliary  Program  will  operate  with  two-way  communication 
between  the  two  programs.  FORTM  also  reads  input  data  and 
places  the  information  in  matrices  MHl,  MH4 ,  and  ML2.  Any 
errors  detected  by  FORTM  are  indicated  by  setting  PHI  of  this 
transaction  to  a  value  greater  than  zero.  Upon  return  from 
FORTM,  PHI  is  tested  for  a  value  greater  than  zero.  For  this 
condition,  the  transaction  is  terminated  with  a  termination  count 
equal  to  PHI  and  the  simulation  stops. 

A  zero  value  of  PHI,  when  no  errors  are  indicated, 
transfers  the  transaction  to  a  SPLIT  block.  The  copy  is  sent 
to  the  program  location  WRITE  to  become  the  first  transaction 
on  the  JOBTAPE.  This  is  performed  to  provide  an  initial  time, 
coincident  with  the  start  of  the  simulation  to  which  all  suc¬ 
ceeding  transaction  arrival  times  are  referenced  on  the  JOBTAPE. 
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The  first  dummy  transaction  is  terminated  immediately  after 
entry  into  the  main  program  from  the  JOBTAPE. 

The  original  transaction  is  delayed  100,000  seconds, 
a  time  far  exceeding  a  normal  simulation  time  length.  Following 
this  delay,  the  transaction  is  again  split  and  the  second  copy 
is  written  as  the  last  transaction  on  the  JOBTAPE.  This  writing 
prevents  an  END  OF  JOBTAPE  message  during  main  program  execution. 

The  original  transaction  is  delayed  1  second  to  permit 
the  WRITE  block  to  execute  before  the  final  terminate  block  is 
executed.  When  this  occurs  the  termination  count  is  incremen¬ 
ted  by  1. 

List  function  number  1  is  used  to  transmit  values 
between  the  main  program  and  FORTM.  Mnemonics  are  used  as  Y 
values  of  this  function.  These  mnemonics  have  been  previously 
assigned  numerical  values  by  the  program.  Corresponding  mnemonics 
are  used  in  the  FORTRAN  subroutine  FORTM  after  calling  subroutine 
MNLTNK.  Values  represented  by’ these  mnenomics  may  be  passed  in 
either  direction.  The  entity  symbols  CMH01,  CMH04 ,  CML02  and 
CLKXH  were  previously  assigned  values  by  SYN  statements  and  are 
passed  to  FORTM.  This  list  is  placed  in  this  program  location 
for  potential  expansion  for  future  requirements.  Any  GPSS 
entity  symbolically  represented  may  be  used  in  this  function. 

A  START  statement  with  a  run  termination  count  1 
starts  the  program  and  normally  stops  it  after  the  control 
transaction  is  written  on  the  JOBTAPE.  This  block  will  also 
cease  program  operation  if  errors  are  determined  in  the  sub¬ 


routine  FORTM. 


MAIN  PROGRAM 


General  Description 

The  Airport  Landside  Simulation  main  program  enacts 
the  movement  of  passengers  and  visitors  through  the  terminal 
area.  This  program  generates  deplaning  passenger  and  greeter 
transactions ,  merges  them  with  enplaning  passenger  and  well- 
wisher  transactions  generated  by  the  auxiliary  program  and 
models  their  flow  through  a  sequence  of  simulated  landside 
processing  facilities.  Flow,  waiting  time,  queue  length 
and  occupancy  data  are  produced  for  analysis. 

The  main  program  contains  the  following  sections: 
program  definitions  area,  deplaning  and  enplaning  logic 
sections,  facility  modules,  control  section,  timer  section, 
transfer  flight  schedule  area,  and  facility  server  reallocation 
sedtion.  This  document  describes  those  sections  in  detail 
and  provides  a  flow  chart  of  GPSS  blocks  used. 


PROGRAM  DEFINITIONS  AREA 


This  section  contains  a  description  by  statements  defining 
limits  of  GPSS  entity  numbers,  system  instructions,  SYN  and  EQU 
statements  to  identify  facilities,  matrix  definition  statements, 
function  and  variable  definitions  and  table  definition  statements. 

Limits  oh  GPSS  entity  numbers  are  established  by  REALLOCATE 
statements.  This  program  requires  entity  limits  differing  from 
those  provided  by  default  values.  The  program  listing  contains 
the  values  currently  used  for  this  simulation  model. 

System  instructions  includes  an  RMULT  statement  to 
provide  different  random  number  sequences  by  changing  random 
number  generator  multipliers.  A  LOAD  statement  retains  the 
FORTRAN  subroutine,  FORTM,  and  the  assembler  subroutine  BAGS, 
in  core  during  program  execution.  The  GPSS  output  module, 

DAGO 6 ,  and  an  assembler  program  XACNO,  are  also  kept  resident. 

A  JOBTAPE  statement  defines  J0BTA1  as  the  file  of  enplaning 
passenger  transactions  created  by  the  auxiliary  program,  and 
ENPLO  as  their  entry  block. 

SYN  statements  are  used  to  pass  argument  values 
symbolically  to  the  FORTRAN  subroutine,  FORTM.  A  list 
function  in  the  timer  section  contains  the  entity  symbols 
used  in  the  SYN  statements  as  Y  values.  A  HELPA  call  to  FORTM 
provides  a  call  to  the  assembler  program  MNLINK.  The  argu¬ 
ments  of  the  FORTRAN  CALL  statement  contain  variable  names 
which  are  positionally  identified  with  the  list  function  Y 
values  after  NMLINK  is  executed.  The  absolute  values  of  the 
symbols  are  assigned  by  the  SYN  statements  of  this  section 


and  are  passed  to  FORTM.  These  values  specify  the  first  entity 
numbers  assigned  by  EQU  statements  used  to  reserve  a  sequenced 
set  of  GPSS  entities.  The  sequential  set  is  used  for  simulation 
of  all  landside  facilities  of  a  given  type,  fcr  example,  all 
security  stations.  The  types  of  GPSS  entities  specified  are 
logic  switches,  user  chains,  queues  and  storages.  When  the 
program  is  executed,  the  number  contained  in  the  EQU  sequential 
set  size  field  for  a  given  facility  type  must  equal  or  exceed 
the  input  parameter  FACNO  for  that  type. 

SYN  statements  are  also  used  to  transfer  the  number 
of  colums  contained  in  matrices  to  FORTM.  Halfword  matrices 
1  through  4,  6  through  9,  and  floating  point  matrix  2, 
utilize  this  feature. 

Matrix  definition  statements  specify  matrix  numbers 
type  and  size.  Numbers  of  columns  must  agree  with  preceding 
SYN  statements.  Contents  of  halfword  matrices  2,  3,  five,  6, 
and  7  are  listed  in  Table  4.  Information  for  halfword  matrix 
8  is  in  Table  5  and  matrix  9  in  Table  6.  Matrices  MH  11  and 
MH  12  are  one  column  matrices  used  to  accumulate  counts  of 
persons  entering  and  leaving  concourses. 

Floating  point  matrix,  ML1,  is  a  single  row,  127 
column  matrix  used  as  a  table  of  floating  point  random  numbers 
ranging  from  0.0  to  1.0.  This  matrix  is  filled  with  random 
numbers  by  a  group  of  blocks  in  the  timer  section. 
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TABLE  4 


CONTENTS  OF  MATRICES  2,  3,  5,  6,  7 


MH2  -  Airline  Information  Table 
1  row  per  carrier 
Column 


1  -  Enplaning  curb  facility  no. 

2  -  Per  cent  preticketed  pax 

using  express  check-in 
(0  *  No  Express  Check-in 

3  -  Enplaning  curb  point  for  bus 

stop  (If  different  from 
column  1) 


FORTRAN  Input  Variable 

Epcurb 

Expchk 


Bustop 


MH3  -  Table  of  Points 
1  row  per  carrier 

Column  FORTRAN  Input  Variable 

1  -  X  -  coordinate  POINTX  or  XY(1) 

2  -  Y  -  coordinate  POINTY  or  XY(2) 

3  -  Nearest  exit  point  no. 

4  -  Nearest  entrance  point  no. 

MH5  -  Transfer  Flight  Table 

Contains  MHl  row  of  departing  flights  taking  transfer 
passengers 

MH6  -  Walking  time  between  points. 

MH7  -  Used  as  work  area  by  bag  claim  routines 

1  row  for  each  possible  random  number,  1-64,  generated 
by  "BAGS" 
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TABLE  5 


MH8  -  Used  to  access  facility  data  in  MH9  tcontains 
same  information  as  FORTRAN  '  NFASCM '  array) 


Number  of 
Facilities  in 
Type _ 


Index  Number 
of  Facility  Type 
Cone  less  than 
number  of  first  facility 
in  type  in  MH9) 


Gate 

1,1 

1,2 

Check-in 

2,1 

2,2 

Security 

3,1 

3,2 

Bagclaim 

4,1 

4,2 

Customs 

5,1 

5,2 

Entrance 

6,1 

6,2 

Exit 

7,1 

7,2 

Enplaning 

curb 

8,1 

8,2 

Transfer 

(stairs,  etc.) 

9,1 

9,2 

Parking 

10,1 

10,2 

Rentacar 

11,1 

11,2 

Deplaning 

curb 

12,1 

12,2 

Immigration 

13,1 

13,2 

Tickets  & 
check-in 

14,1 

14,2 
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TABLE  6 


MH9  -  Facility  Table 
1  Row  per  actual  or  dummy  facility 


Column 

1  Facility  type 

2  Facility  number  within  type 

3  Location  (point  Number) 

4-6  Used  to  identify  a  facility  with  other  model  components 


Facility (1) 

Column  No. 

Facility (2) 

FORTRAN  Input  Variable 

Bagclaim 

4 

Deplaning  curb 

NDELPC 

Customs 

4 

Deplaning  curb 

NDELPC 

Gate 

4 

Security 

NSECUR 

Gate 

5 

Immigration  area 

NIMMI 

Immigration 

4 

Customs 

NCUST 

Rentacar 

4 

Agency  code 

AGENCY 

Rentacar 

5 

Parking 

NPARKL 

Tickets  & 
Check-in 

4 

Airline  Code 

AIRLIN 

Concession 

4 

Security 

NSECUR 

T 


The  halfword  matrices  1  and  4,  and  floating  point 
matrix  2  have  been  described  previously  in  Tables  1  and  2 
of  the  Auxiliary  Program  Description  Section. 

Functions  defined  in  this  section  of  the  program 
are  used  for  three  purposes:  (1)  retention  of  program  loca¬ 
tions  representing  processing  facilities  encountered  by  passenger 
and  visitor  transactions ,  (2)  selection  of  functions  containing 
these  locations  by  random  numbers  draw;  and  (3)  provision 
of  random  variable  values  to  the  program  by  describing  cumu¬ 
lative  distributions  subject  to  random  draw  during  program 
operation. 

The  first  group  are  lists  of  numerical-valued  functions 
containing  symbolic  program  locations  required  to  be  accessed 
by  all  transactions  of  a  class.  For  example,  the  deplaning 
domestic  passenger  is  assigned  the  function  DDPlF .  Processing 
of  this  passenger  requires  routines  to  the  concourse  exit,  CNCRO; 
a  rental  car  counter,  RCARO;  bag  claim,  BAGCO;  terminal  building 
exit,  EXITO;  and  a  ground  transportation  facility,  CGTRO  at  each 
of  these  locations,  a  transaction  parameter  is  examined  to 
determine  if  further  orocessing  is  required.  When  no  processing 
is  simulated  the  transaction  is  directed  to  the  next  location 
contained  in  the  function.  Otherwise,  processing  is  completed 
and  the  transaction  is  directed  to  the>.next  program  location. 

The  program  presently  uses  22  functions  of  this  type  to  describe 
movement  of  passengers,  well-vishers  and  greeters  through  the 
lands ide. 
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Selection  functions  are  either  entity  functions  or  dis¬ 
crete  attribute-valued  functions.  Entity  functions  are  used  by 
transfer  or  transit  passenger  transactions  to  select  routing 
functions  based  upon  a  random  number  draw.  The  X  values  are 
treated  as  arguments  of  discrete  numerical  valued  functions. 

The  argument  values  are  supplied  by  a  random  number  generator. 

Y  values  are  function  names. 

The  other  type  of  selection  function  used  selects  ticket 
counter  processing  time  based  upon  the  airline  number  of  the 
transaction  currently  being  processed.  A  discrete  attribute 
valued  function  performs  this  task.  A  list  of  the  selection 
functions  is  contained  in  Table  7. 

Cumulative  distribution  functions  used  by  this  program 
are  continuous  or  discrete.  Continuous  functions  describe 
landside  facility  service  times,  unloading  times  or  empty 
vehicle  parking  times.  Discrete  distributions  are  used  to 
assign  quantities  to  transaction  parameters.  For  example, 
passenger  and  visitor  group  sizes  or  number  of  bags  are  assigned 
by  ramdom  selection  from  this  function  type.  A  list  of 
numerical  valued  functions  is  contained  in  Table  8. 

Arithmetic  variables  are  used  for  assignment  of  ser¬ 
vice  times  to  facilities.  Values  of  functions  representing  the 
service  time  distribution  are  multiplied  by  the  halfword 
representing  the  scale  factor  SCLXH.  When  service  times  are 
applicable  to  individuals  instead  of  passenger  groups,  the  ser¬ 
vice  time  is  determined  by  multiplying  the  value  from  the  dis¬ 
tribution,  the  scale  factor  and  PB13 ,  then  number  of  passengers 


TABLE  7 


Functions  Used  for  Selection 

TADF  -  Transfer  passenger,  long- stay/different  concourse 
TDLSF  -  Transfer  passenger,  long- stay/same  concourse 
TDLSF  -  Transfer  passenger,  short-stay /different  concourse 
TDSSF  -  Transfer  passenger,  short- stay/saxne  concourse 
TDPXF  -  Transit  passenger 

ATKIF  -  Choose  airline  ticket/check-in  variable 
BUNIF  -  Baggage  unload  entity  function  (aircraft  type) 
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TABLE  8 


Cumulative  Distribution  Functions 


Continuous  Functions 

BUN2F 

to 

BUN3F 

- 

Baggage  time  to  claim  area  by  aircraft 
type 

CHKlF 

to 

CHK4F 

- 

Ticket  check-in  time  by  airline 

GAT3F 

to 

GAT4F 

- 

Gates  process  time  by  airline 

IMM1F 

- 

Immigration  process  time 

CUS1F 

- 

Customs  process  time 

PAH1F 

- 

Parking  lot  exit  service  time 

RCA1F 

- 

Car  rental  processing  time 

SEC1F 

- 

Security  service  time  per  person 

CSCKF 

- 

Curbside  checkin  process  time 

Discrete 

Functions 

PPPDF 

- 

Passengers  per  party  deplaning 

GRPPF 

- 

Greeters  per  party  (.parties  with  greeters 
only) 

DBAGF 

- 

No.  of  bags  -  domestic  flight 

RCAZF 

- 

Car  rental  agency  selection 
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plus  visitors  in  the  group.  A  list  of  service  time  variables 
is  given  in  Table  9. 

Other  arithmetic  variables  are  used  to  calculate 
aircraft  and  vehicle  unloading  times,  numbers  of  transactions 
assigned  to  ground  transportation  modes,  starting  times  relative 
to  flight  departures  and  GPSS  storage  numbers  for  deplaning 
and  enplaning  curb,  double  parking  and  storage  areas.  Two 
arithmetic  functions  are  used  for  random  number  generation. 

Boolean  variables  are  used  for  testing  conditions  at  curb 
side  to  determine  if  congestion  due  to  double  parking  will  cause 
queueing  of  traffic  attempting  to  bypass  a  section.  Other 
Boolean  variables  test  passenger  transaction  parameters  for 
transfer  passengers  status  and  preticketed  status. 
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TABLE  9 


Service  Time  Variables 


CHK1V  -  CHK4V 
CUS1V 

GAT3V  to  GAT4V 

IMM1V 

PARlV 

RCAlV 

SEC  IV 

CIRCV 


Ticket  and  check-in  time  by  airline 
Customs  time 

Gate  service  time  by  airline 
Immigration 

Parking  lot  service  time 
Car  rental  checkout  time 
Security  service  time  (party) 
Vehicle  recirculation  time 
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Control  Section 


This  section  provides  a  method  of  routing  transactions 
from  one  program  logic  section  to  another.  Routing  functions 
are  assigned  the  byte  parameter  1  by  other  program  sections 
such  as  the  enplaning  and  deplaning  passenger  logic.  The 
transaction  is  transferred  to  the  control  section  which,  in 
turn,  transfers  it  to  the  next  program  location. 

The  first  statement  of  the  control  section  at  CTRLO 
assigns  the  value  of  the  function  contained  in  PB1  to  PH4. 

The  argument  of  the  function  is  contained  in  PB2 .  Byte 
parameter  2  is  assigned  a  value  1  when  the  transaction 
is  created.  After  the  transaction  is  routed  through  CTRLO, 
the  second  block  of  this  section  increments  PB2  by  1.  This 
will  make  PB2  point  to  the  next  value  of  the  routing  function 
if  the  transaction  is  later  returned  to  CTRLO.  The  third 
block  of  this  section  CTRL1  transfers  the  transaction  to  the 
program  location  contained  in  PH4 .  This  location  is  normally 
the  current  value  of  the  routing  function  in  PB1. 

When  a  transaction  is  directed  to  a  location  outside  the 
routing  function,  the  transfer  is  performed  without  incre¬ 
menting  PB2 .  Under  this  condition,  the  program  logic  section 
specifying  the  transfer,  places  the  name  of  the  next  program 
location  in  PH4  and  directs  the  transaction  to  CTRLl.  An 
example  of  this  operation  is  in  the  enplaning  curb  logic.  A 
vehicle  transaction  unable  to  locate  a  parking  space  has  the 
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address  of  the  recirculation  road  logic  placed  in  PH4  and 
is  transferred  to  CTRL2  to  effect  this  routing.  After  simu¬ 
lating  the  recirculation  process  the  vehicle  is  directly 
transferred  to  the  enplaning  curb  logic.  Successful  use  of 
the  simulated  curbside  will  then  provide  a  transfer  to  CTRLO 
to  continue  transaction  routing  according  to  the  PB1  function. 

A  special  purpose  block  at  CTRL8  transfers  deplaning 
passenger  transactions  using  the  parking  lot  from  the  ground 
transportation  module  to  the  location  PARKO.  This  location 
is  the  starting  block  of  a  module  representing  the  parking 
facility  payment  booth.  The  transfer  is  unconditional  for 
transactions  entering  the  CTRL8  block. 

Secondary  functions  of  the  control  section  are,  (a)  the 
provision  of  ground  transportation  facility  program  locations 
to  represent  buses  and  (b)  provision  of  locations  for  transaction 
terminations  after  simulation  of  landside  processing  is 
completed. 

For  transactions  representing  terminating  deplaning 
passengers,  the  selection  function  CTR1F  routes  the  transaction 
to  the  deplaning  curb,  parking  facility,  or  rental  car  parking 
facility.  The  mode  selection  defined  in  PB6  determines  the 
facility.  Program  locations  to  represent  these  facilities 
are  placed  in  PH4  at  CGTRO  and  the  transfer  is  executed  in 
the  next  block.  Originating  enplaning  passenger  transactions 
use  the  function  CTR2F  to  select  the  enplaning  curb  parking 
facility  or  rental  car  return  location.  Transfers  are  performed 
by  the  value  in  PH4. 
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Transactions  representing  buses  are  generated  at 
intervals  specified  by  input  data.  The  time  between  crea¬ 
tion  of  transactions  is  ABUXH  for  buses  proceeding  to  the 
enplaning  curb  and  DBUXH  for  buses  departing  the  deplaning 
curb.  These  are  rotated  to  program  locations  ENPC6  and  DPLC6 
respectively. 

The  section  providing  transaction  termination  begins 
at  the  block  DEP99.  The  total  walking  time  PAXWT,  accumulated 
on  the  landside  is  recorded  by  a  TABULATE  block  for  each 
transaction  routed  to  DEP99,  END99,  or  TRX99. 

This  section  also  tabulates  the  total  simulated  waiting 
time  spent  on  the  landside  by  transactions.  A  new  table  is 
produced  for  each  simulated  hour.  The  hour  is  designated  by 
the  value  of  the  byte  savevalue  PXTBN.  The  transaction  is 
entered  into  the  table  by  a  second  TABULATE  block  and  then 
terminated. 

In  general,  deplaning  passenger  transactions  are  routed 
to  DEP99 ,  enplaning  passenger  transactions  to  ENP99  and 
transfer  passenger  transactions  to  TRX99. 
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DEPLANING  PASSENGER  LOGIC 

This  section  of  the  program  generates  transactions 
representing  individual  flights.  It  then  creates  greeter  and 
deplaning  passenger  transactions  through  the  use  of  SPLIT 
blocks.  Attributes  assigned  to  transaction  parameters  by  this 
section  include:  number  of  bags,  meeting  location,  modal 
choice,  sequence  numbers  for  passenger-greeter  matching,  process 
function,  party  size,  and  parking  lot  number.  The  deplaning 
passenger  logic  simulates  the  discharge  of  passengers  from  the 
aircraft  and  performs  the  matching  of  those  deplaning  passenger 
and  greeter  transactions  assigned  to  meet  at  the  airplane  gate. 

An  initial  GENERATE  block  provides  one  transaction  of 
priority  level  10.  This  transaction  contains  11  halfword  para¬ 
meters  and  14  byte  parameters  which  are  available  for  attribute 
assignment.  The  process  function  pointer,  PB2 ,  is  initialized 
to  1.  A  copy  of  this  transaction  is  sent  to  program  location 
XFLTO  to  initialize  a  table  of  transfer  flights  in  halfword 
matrix  five.  An  ADVANCE  block  delays  the  original  transaction  by 
one  second  to. permit  the  transfer  table  initialization  before 
flight  and  passenger  transaction  creation. 

Byte  parameter  11  is  assigned  the  value  1  to  indicate 
that  the  transaction  begins  activity  at  the  gate.  A  loop 
beginning  at  program  location  DEPLO  creates  a  transaction  for 
each  arriving  and  departing  flight.  At  DEPLO  the  MH1  row 
counter,  PHI,  is  incremented  by  1  each  time  a  transaction 
passes  through  the  block.  Column  1  of  each  row  of  MH1  is 
tested  for  a  negative  value.  The  row  after  the  last  flight  in 
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the  schedule  contains  the  value  -1  in  this  position  and  the  last 
transaction  is  terminated  when  this  is  reached.  Rows  represent¬ 
ing  flights  cause  the  transaction  to  branch  around  the  ter¬ 
minate  block  to  an  ADVANCE  block.  At  this  location,  the 
transaction  is  delayed  until  the  difference  between  MHl  (PHI, 6), 
the  flight  arrival  or  departure  time  relative  to  simulation  start, 
and  the  absolute  clock  time  is  one  hour.  A  SPLIT  block 
completes  the  loop  by  sending  the  flight  transaction  to  the  next 
block  and  the  copy  back  to  DEPLO. 

The  flight  transaction  proceeds  to  a  TEST  block  to 
determine  if  an  arriving  or  departing  flight  is  represented. 
Departing  flights  proceed  to  program  location  GATE9 ,  where  the 
boarding  process  is  simulated.  Arriving  flights  transfer  to 
DEPL5.  At  this  location,  the  value  1,2,  or  3  is  assigned  to 
PB3  to  indicate  if  the  flight  is  a  domestic,  commuter  or  inter¬ 
national  type,  respectively. 

Byte  parameter  3  is  tested  for  a  value  of  1.  Non¬ 
domestic  flight  transactions  are  transferred  to  DEPLl.  Domestic 
flight  transactions  are  assigned  DDP1F ,  the  routing  function 
for  domestic  passengers  to  PB1,  and  DBAGF,  the  bag  distribution 
function  for  domestic  passengers,  to  PB14.  These  transactions 
are  then  transferred  to  DEPL3 . 

At  DEPLl,  PB3  is  tested  for  a  value  of  2.  Commuter 
flight  transactions  proceed  to  the  next  block  where  the  commuter 
passenger  routing  function,  DCP1F,  is  assigned  to  PBl.  The 
commuter  bag  distribution  function^CBAGF^ is  assigned  to  PB14  and 
the  transaction  transfers  to  DEPL3. 
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International  flight  transactions  are  transferred  from 
OEPLl  to  BEPL2.  At  DEPL2 ,  the  international  deplaning  passenger 
routing  function  DIPlF,  is  assigned  to  PB1.  Byte  parameter  14 
is  assigned  IBAGF,  the  international  passenger  bag  distribution 
function.  This  type  of  transaction  proceeds  to  the  next  block 
at  location  DEPL3 . 

At  DEPL3 /  the  halfword  savevalue  SEQ1H,  used  for  assigning 
sequence  numbers  to  transactions,  is  tested  for  a  value  equalling 
or  exceeding  32,000.  Under  these  conditions,  SEQ1H  is  reset  to 
zero,  then  the  transaction  proceeds  to  the  first  of  three  consec¬ 
utive  SPLIT  blocks.  Otherwise,  the  transaction  is  transferred 
directly  to  the  first  SPLIT  block. 

Three  program  locations,  DEP25,  DEP15  and  DEP17  are 
the  destinations  of  the  copy  transactions  from  the  SPLIT  blocks. 

At  DEP25 ,  the  transaction  is  initiated  which  will  represent 
greeters  using  both  the  parking  facility  and  the  curbside  after 
meeting  passengers  inside  the  terminal  building.  Greeter  trans¬ 
actions  to  be  created  for  merging  with  terminating  passenger 
transactions  after  meeting  inside  the  terminal  building  and 
departing  the  airport  directly  from  the  parking  facility  are 
started  at  DEP15 .  Program  location  DEP17  is  the  starting  point 
for  transactions  to  be  generated  representing  greeters  meeting 
passengers  at  curbside. 

The  flight  transaction  proceeds  to  DEPL7  where  the 
creation  of  deplaning  passenger  transactions  is  initiated.  A 
percentage  of  these  passenger  transactions  will  be  matched 
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later  with  greeter  transactions  at  locations  specified  by 
the  logic  of  both  the  following  sections  and  the  sections 
creating  deplaning  passengers. 

The  first  copy  transaction  proceeds  to  DEP25  where  PB6 
is  given  a  value  of  1  to  indicate  that  the  curbside  will  be 
used  after  parking.  The  number  of  greeters  in  this  category 
for  this  arriving  flight  is  determined  by  the  variable  FLT2V. 
This  number  is  assigned  to  PH8.  The  transaction  transfers  to 
location  DEP16  to  Test  PH8  for  the  existence  of  this  greeter 
type  on  this  flight.  If  PH8  is  zero,  this  copy  transaction 
is  terminated.  For  non- zero  values  of  PH8,  the  transaction 
bypasses  the  TERMINATE  block  and  adds  the  number  in  PH8  to 
MH1  (PHI, 5). 

The  random  number  table  in  ML1  is  used  as  the  argument 
of  functions  which  will  assign  the  numbers  of  passengers  per 
party  and  bags  per  party  to  be  transacted.  The  MH1  row  number, 
PHI,  is  used  to  assign  the  starting  column  of  ML1.  Variable 
DPL3V  is  PHI,  modulol25  and  is  assigned  to  PB10  to  designate 
starting  the  ML1  column  number  for  this  flight.  At  DEP  12,  PB10 
is  incremented  by  one,  then  tested  for  a  value  in  excess  of  124. 
When  PB10  is  greater  than  124,  it  is  reset  to  1. 

The  value  of  the  function  PPPDF;  the  number  of 
passengers  per  deplaning  party,  is  subtracted  from  the  total 

on  the  flight.  PB10  is  increased  by  1,  then  the  number  of 

/ 

bags  drawn  from  the  function  contained  in  PB14  by  using  MLl 
(1,PB10)  as  the  argument  valuers  assigned  to  PB4.  The 
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pointer  PB10  is  again  incremented  by  1  and  then  the  random  number 
drawn  from  ML1(1,  PB10)  is  tested  for  a  value  less  than  or 
equal  to  GRGXL,  the  percentage  of  passengers  meeting  greeters 
at  the  gate.  When  this  condition  occurs,  the  transaction 
is  marked  for  gate  meeting  by  assigning  the  function  GREGF  to 
PB1  and  the  value  1  to  PB12.  This  transaction  type  is  then 
transferred  to  DEP14. 

Greeter  transactions  not  meeting  at  the  gate  are 
transferred  to  a  TEST  block  to  determine  if  the  passenger  to 
be  greeted  will  have  checked  bags.  The  number  of  bags  is 
contained  in  PB4  and  is  tested  for  zero. 

For  the  zero  value,  the  function  GRELF  is  assigned 
to  PBl .  This  function  routes  the  greeter  to  the  enplaning 
level  for  meeting  the  deplaning  passenger  in  the  ticket  lobby. 

Greeter  transactions  with  a  non-zero  value  in  PB4  are 
as'signed  the  function  GREBF.  This  directs  all  remaining  greeters 
proceeding  inside  the  terminal  building  to  the  bag  claim 
area  for  meeting. 

Halfword  parameter  8  is  tested  for  a  value  greater 
than  zero  to  determine  if  another  greeter  transaction  is  required. 
When  PH8  is  greater  them  zero,  a  copy  transaction  is  sent  back 
to  DEP12  by  a  SPLIT  block  to  become  the  next  greeter  transaction. 
The  parent  transaction  from  the  SPLIT  block  is  assigned  the 
narking  lot  number  in  PB14  ani_  the  number  of  greeters  in  PB5 
from  the  distribution  function  GRPPF.  The  sequence  counter, 

SE01H,  is  incremented  by  1  and  the  current  value  is  assigned 
to  PH10 . 
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The  transaction  is  held  at  an  ADVANCE  block  for  a  time 
duration  drawn  from  the  function  DCA2F,  the  distribution  of 
arrival  times  at  the  landside  for  greeters.  The  times  of 
greeter  arrival  are  between  one  hour  prior  to  flight  arrival 
and  10  minutes  after.  After  departure  from  this  block,  the 
transaction  proceeds  to  CTRLO  to  begin  simulation  activity 
with  routines  prescribed  by  the  function  assigned  to  PB1. 

The  second  copy  transaction  proceeds  to  DEP15 .  Byte 
parameter  6  is  assigned  a  value  of  2.  This  indicates  that 
only  this  parking  facility  will  be  used  by  the  greeter  vehicle. 
After  greeter  and  terminating  passengers  are  matched  inside 
the  terminal  building  the  group  departs  the  landside  directly 
after  leaving  the  parking  facility.  The  numbers  of  greeters 
from  this  category  is  calculated  from  the  variable  FLT3V  and 
assigned  to  PH8 .  At  the  next  block,  DEP16,  the  test  is  per¬ 
formed  for  the  existence  of  this  greeter  type  in  PH8.  All 
further  processing  of  this  transaction  is  identical  to  that 
of  the  first  copy  transaction. 

The  third  copy  is  routed  to  DEP17.  The  value  1  is 
assigned  to  PB6  to  indicate  curb  usage.  This  transaction  will 
represent  greeters  meeting  their  assigned  passengers  at  this 
curbside.  The  number  of  passengers  of  this  category  is 
determined  by  the  variable  FLT4V  and  is  assigned  to  PH8 .  A 
test  is  made  to  determine  if  PH8  is  zero.  The  absence  of  this 
greeter  type  terminates  this  copy.  When  greeters  of  this  type 
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are  to  be  simulated,  the  number  of  these  is  added  to  the 
total  of  terminating  passengers  with  greeters.  This  number 
is  contained  in  MHl  (PHI, 5).  The  starting  column  number  of 
the  random  number  table  in  MLI  is  placed  in  PB10  as  before. 
Halfword  parameter  4  is  given  the  program  location  DCARO 
as  the  first  and  only  destination  for  this  transaction. 

The  table  pointer  is  incremented  as  before  and  the  party 
size  is  drawn  at  random  from  PPPDF  and  subtracted  from  PH8 . 

The  number  of  bags  is  also  determined  and  assigned  to  PB4 . 

A  test  determines  if  PH8  is  greater  than  zero,  when  true, 
indicating  more  greeter  transactions  are  required,  a  copy  is 
sent  back  to  DEP13  to  represent  the  next  greeter  group.  The 
parent  transaction  has  zero  assigned  to  PB14 ,  GRPPF  to  PBS 
and  a  sequence  number,  SEQ14,  assigned  to  PH10.  The  transaction 
transfers  to  CTRLI  which  will  affect  the  transfer  to  DCARO. 

The  greeter  arrival  time  function  DCA2F ,  is  located  at  DCARO. 

The  original  flight  transaction  is  transferred  to  DEPL7 
and  will  be  used  to  generate  all  deplaning  passengers  for  the 
flight.  At  DEPL7  the  transaction  is  held  until  flight  arrival 
time  by  an  ADVANCE  block,  which  delays  further  processing  for 
3600  seconds.  A  GATE  block  holds  back  succeeding  aircraft 
until  this  baggage  unloading  logic,  following  location  BUNLO, 
resets  logic  switch  DPL1G .  This  allows  deplaning  passenger 
transactions  for  this  flight  to  execute  the  assembler  sub¬ 
routine  BAGS  without  interference  from  a  simultaneously  arriving 
flight.  After  the  GATE  block  is  passed,  DPL1G  is  placed  in  a 


set  condition  by  this  transaction.  The  gate  number  of  the 
flight  in  MHl  (PHI, 9)  is  assigned  to  PH5  and  also  to  PH7 . 

The  point  number  of  the  gate  is  assigned  to  PH2. 

The  maximum  passenger  unloading  time  ACUNL  is  calculated 
by  multiplying  the  total  number  of  passengers  by  3  seconds 
and  adding  90  seconds.  A  SELECTLR  block  places  the  number 
of  the  first  chain  between  the  limits  CHAlB  and  CHA2B  in  a 
reset  condition  into  PH6 .  Numerical  values  of  these  limits 
were  previously  set  by  EQU  statements.  A  LOGICS  statement 
places  -i-his  chain  in  a  set  condition.  The  chain  represents 
a  bag  claim  device  which  will  hold  the  passenger  transactions 
in  the  bag  claim  logic  until  all  bags  are  delivered  from  the 
flight. 

Three  split  blocks  route  copy  transactions  to  DEPL4 , 

DEPL6  and  DEP10  to  initialize  the  generation  of  transactions 
representing  terminating,  transit  and  transfer  out  of  system 
passengers,  respectively.  The  parent  transaction  proceeds  to 
a  TEST  block  to  determine  if  a  flight  is  available  in  the  MH5 
(1,1)  element  of  the  transfer  flight  table  for  accepting 
transfer  passengers.  If  no  flights  are  available,  the  number 
of  transfer  passengers  on  the  flight  represented  by  this  trans¬ 
action  is  added  to  the  halfword  save  value  XFRXH  and  thj.s 
transaction  to  represent  transfer  passengers  is  termimted. 

When  MH5 (1,1)  indicates  a  flight  is  available,  the 
transaction  proceeds  to  DEPL8  where  MHl (PHI, 11)  is  tested  to 


A-l-47 


determine  if  the  arriving  flight  has  any  transfer  passengers. 

If  none,  the  flight  transaction  is  terminated.  When  transfer 
passengers  are  to  be  simulated  for  this  flight,  FB8  is 
assigned  a  value  2,  as  an  indicator  of  a  transfer  passenger 
and  byte  parameters  5  and  13  are  assigned  the  value  1.  This 
assumes  all  transfer  passengers  are  travelling  singly,  rather 
than  in  a  group. 

A  split  block  creates  the  number  of  transactions  required 
to  simulate  transfer  passengers  on  the  flight.  This  number  is 
obtained  from  MH1  (PHI, 11).  These  transactions  are  tested  to 
determine  if  the  arrival  flight  is  international.  When  this 
occurs,  the  international  transfer  passenger  routing  function, 
TIP1F ,  is  assigned  to  PBl.  A  HELPA  call  to  FORTM  is  used  to 
assign  the  next  flight  by  random  number  draw.  Transactions 
not  representing  international  arriving  flights  are  routed 
directly  to  this  HELPA  block.  The  departing  flight  MHl  row 
number  is  assigned  to  PHI  at  this  time.  The  flight  table 
matrix  element  MHl  (PHI, 7)  is  tested  for  a  value  3  to  determine 
if  the  flight  is  international.  When  this  occurs,  the  trans¬ 
action  is  given  a  routing  function  TDP5F .  This  transaction 
is  then  transferred  to  DEP11. 

The  non-international  transfer  passenger  is  transferred 
to  a  SAVE  VALUE  block,  where  the  gate  of  the  departing  flight 
is  retained  as  the  save  value  SAVXH.  The  time  difference 
between  the  departing  flight  time  and  the  current  clock  time 
is  tested  to  determine  if  the  duration  exceeds  45  minutes. 


Those  time  differences  exceeding  this  value  are  categorized 
as  long  term  waiting  times  and  the  transaction  is  transferred 
six  blocks  to  the  next  test.  Transactions  with  a  short  stay, 
less  than  45  minutes,  test  the  value  of  the  MH9  matrix 
elements  in  column  4  for  the  gate  numbers  of  the  arrival 
and  departure  gates  to  determine  if  both  are  on  the  same 
concourse.  When  this  occurs,  the  selection  function  TDSSF  is 
assigned  to  PB1  and  the  transaction  proceeds  to  DEPll.  Transfer 
passenger  transactions  with  a  short  stay  and  with  arrival  and 
departure  rates  on  different  concourses  are  assigned  selector 
function  TDSDF  and  transfer  to  DEPll. 

The  passengers  with  a  greater  duration  than  45  minutes 
between  current  absolute  clock  and  departure  times  are  assigned 
selection  functions  TDLSF  and  TDLDF  for  the  same  or  different 
concourses,  respectively.  The  selector  functions  assign 
routine  functions  to  PB1  based  upon  input  percentages  and 
the  current  value  of  a  random  number  generator.  All  transactions 
proceed  to  DEPll  which  executes  a  transfer  based  upon  the 
address  assigned  to  PH8  by  FORTM. 

The  transit  passenger  transactions,  represent  continuing 
passengers  who  exit  an  aircraft,  circulate  within  the 
terminal  building  and  return  to  the  same  flight.  These  are 
marked  as  transit  passengers  by  assigning  3  to  PB8  and 
designated  as  single  passengers  with  no  visitors,  by  assigning 
1  to  PB5  and  PB13. 
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Transit  passenger  transactions  are  created  by  a  SPLIT 
block  using  MH1(PH1,13)  to  specify  the  numbers  of  copies. 

The  parent  transaction  is  terminated  after  the  SPLIT  block. 

An  ADVANCE  block  simulates  the  deplaning  process  by  delaying 
the  entry  of  each  transactions  by  an  amount  ACU2V,  the  random 
variable  specifying  service  times.  A  HELPA  block  calls  FORTM 
to  assign  the  MHl  row  number  of  the  next  flight  at  the  same 
gate.  A  process  function  is  selected  by  assigning  TDPXF  to 
PBl.  The  function  chosen  by  this  selection  function  routes 
the  transit  passenger  through  selected  landside  facilities. 

If  a  process  function  cannot  be  selected,  PBl  equals  zero 
and  the  transaction  is  terminated.  When  PBl  is  non-zero,  the 
function  executes  the  assigned  routing  function  and  proceeds 
to  CTRLO  to  begin  landside  processing. 

Transfers  out  of  the  system  are  routed  to  location  DEP10. 
The  number  of  transactions  to  be  generated  is  specified  by 
MHl (PHI, 16) .  After  departing  the  aircraft,  these  are  assigned 
the  routing  function  TOSDF,  and  transferred  to  CTRLO  to  begin 
processing. 

Terminating  passengers  are  routed  to  DEPL4  where  PB8  is 
assigned  the  value  1  to  designate  the  transaction  as  repre¬ 
senting  the  deplaning  terminating  passenger. 

Transaction  sequence  counter  SEQ2H  is  tested  for  a  value 
equal  to  or  greater  than  32,000.  When  this  condition  exists, 
the  value  is  reset  to  zero.  Otherwise,  the  transaction  is 
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directed  to  a  series  of  SPLIT  blocks.  Copies  are  directed 
to  DEP18,  DEP19,  DEP22  and  DEP26  to  generate  passenger  groups 
using  private  vehicles  and  to  assign  sequence  numbers  for  pas¬ 
senger  greeter  matching.  A  copy  is  also  directed  to  a  section 
generating  transactions  for  simulation  of  passengers  using 
public  modes  of  transportation.  The  flight  transaction  is 
transferred  to  BUNLO  to  initiate  simulation  of  the  baggage 
unloading  process. 

The  first  copy  is  directed  to  DEP18  where  PB6  is 
assigned  the  value  1  to  indicate  that  the  curbside  will  be 
used  after  the  greeter-passenger  meeting  and  removal  of  the 
vehicle  from  the  parking  garage  is  simulated.  The  number  of 
transactions  from  this  category  is  calculated  by  FLT2V  and 
assigned  to  PH8.  The  procedure  for  determining  party  size  is 
identical  to  that  previously  described  for  greeters.  The 
random  number  selections  are  drawn  from  the  table  ML1 ,  using 
the  PHI  row  number,  modulus  125,  as  the  pointer. 

Using  the  same  sequence  of  numbers  for  the  passenger 
transaction  as  for  the  greeter,  a  transaction  is  created  for 
each  passenger  group  from  the  distribution  function  PPDF.  The 
number  of  passengers  in  the  group  is  assigned  to  PB13  and  sub¬ 
tracted  from  PH8  as  before.  This  is  repeated  until  PH8  becomes 
zero  or  negative.  When  negative,  the  last  party  size  is 
adjusted  to  force  a  zero  value  in  PH8 . 

Subroutine  BAGS  is  called  by  the  passenger  transaction 
and  uses  the  argument  FN*PB14  to  determine  the  number  of  bags 
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to  be  assigned  to  the  passenger  group  transaction  in  PB4 . 

This  is  identical  to  the  usage  of  the  bag  function  performed 
by  the  greeter  transaction  and  the  same  random  number  from 
MLl  is  used  by  both  transactions.  For  each  terminating 
passenger  transaction,  subroutine  BAGS  also  selects  one  random 
number  for  each  bag  specified  in  PB4  using  one  of  the  GPSS 
random  number  generators .  The  largest  random  number  generated 
for  the  transaction  is  assigned  to  PH3.  This  value  will  be 
used  later  in  the  baggage  unloading  logic  to  release  the 
passenger  from  the  chain  representing  the  bag  claim  device. 

Sequence  numbers,  SEQ1H  and  SEQ2H  assigned  to  PH10  in 
greeter  and  passenger  transactions,  respectively,  are  identical 
for  the  pair  to  be  matched  later.  The  numbers  of  greeter  and 
passenger  transactions  proceeding  to  the  gate,  bag  claim  or 
lobby  for  meeting  are  determined  identically.  The  major 
differences  in  the  two  paired  transactions  are;  (1)  assignment 
of  different  processing  functions  to  PB1 ,  (2)  assignment  of 
passenger  group  size  number  to  PB13  of  the  passenger  transac¬ 
tion  and  zero  to  the  same  parameter  of  the  greeter  transaction, 
(3)  assignment  of  the  greeter  group  size  to  PBS  of  the  greeeter 
transaction,  and  assignment  of  passenger  group  size  to  PB5  of 
the  passenger  transaction. 

The  second  copy  is  directed  to  DEP19  where  PB6  is  assigned 
the  value  2  and  the  number  of  transactions  needed  to  proceed 
directly  out  of  the  airport  from  the  parking  facility  after 
meeting  is  calculated  from  VFLT3V  and  assigned  to  PH8 .  The 
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same  processing  as  the  transaction  processing  to  DEP18  is 
executed. 

The  third  copy  proceeds  to  DEP22  where  the  transactions 
representing  terminating  passenger  groups  greeted  at  the 
curb  are  generated.  A  value  of  1  is  assigned  to  PB6 .  The 
number  of  transactions  required  is  determined  from  FLT4V  and 
assigned  to  PH8 . 

All  of  the  transactions  generated  from  the  three  above 
copies  are  transferred  to  DEP24  where  the  deplaning  and  gate 
meeting  processes  are  simulated. 

The  fourth  copy,  routed  to  DEP26,  assigns  a  value  of  2  to 
PB6  and  calculates  the  number  of  transactions  required  to  repre¬ 
sent  passengers  without  greeters  using  private  auto.  The  numbers 
of  passengers  per  party  is  drawn  from  the  function  PPPDR, 
using  the  random  number  table  in  ML1  as  a  source  for  argument 
values  of  the  function.  Subroutine  BAGS  is  also  executed 
with  a  number  from  ML1  as  the  argument  of  the  bag  per  passenger 
function  in  PB14.  If  the  number  of  bags  is  zero,  the  function 
DLP1F  is  assigned  to  the  transaction  representing  this 
passenger  group.  These  transactions  proceed  directly  to  DEP24 
for  deplanement. 

The  final  SPLIT  block  directs  a  copy  transaction  to 
areas  creating  transactions  representing  terminating  passengers 
using  taxi,  limousine  or  bus  for  ground  transportation.  The 
number  of  passengers  on  the  flight  utilizing  ground  transpor- 
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tation  modes  other  than  private  auto  is  provided  by  FLT6V 
and  is  assigned  to  PH8 .  The  function  PPPDF  is  also  used 
to  determine  party  size  and  is  assigned  to  PB13.  A  loop 
determining  PH8  by  each  party  size  until  depletion,  creates 
the  required  number  of  transactions.  Each  transaction 
executes  a  HELPA  block  and  is  assigned  a  mode  by  FORTM 
using  random  number  selection.  The  subroutine  BAGS  is  also 
executed.  For  passengers  other  than  those  using  car  rental, 
the  number  of  bags,  PB4  is  tested  for  zero.  When  this 
condition  occurs,  the  function  DLP1F  is  assigned  to  PB1. 

All  BAGS  transactions  are  transferred  to  DEP  24. 

AT  DEP24 ,  all  terminating  deplaning  passenger  trans¬ 
actions  are  delayed  by  the  value  ACU2V  a  random  unloading 
time  from  a  uniform  distribution.  Byte  parameter  12  is 
tested  for  a  value  of  1,  to  determine  if  the  passenger  trans¬ 
action  will  attempt  to  match  the  corresponding  greeter  trans¬ 
action.  Those  passenger  transactions  with  PB12  not  equal  to 
1  are  transferred  to  CTRLO  to  begin  landside  routine. 

Those  with  a  value  1  in  PB12  are  transferred  to  an  UNLINK 
block  to  examine  this  user  chain  GREGC.  The  parameter  PH10 
of  the  passenger  transaction  is  compared  to  the  same  parameter 
of  all  the  greeter  transactions  waiting  on  the  chain.  When 
transactions  match,  the  greeter  transaction  is  removed  from 
the  chain  and  transferred  to  CTRLl .  The  passenger  transaction 
proceeds  to  the  next  block  at  DEP29.  At  this  location,  the 


transaction  is  held  until  the  logic  switch  PAS3L  is  placed 
in  a  set  condition  by  the  greeter  transaction.  This  setting 
is  performed  in  the  gate  logic  section  by  the  greeter  trans¬ 
action  after  transfer  from  CTRLl.  The  number  of  greeters  is 
assigned  to  the  savevalue  PAS32  and  the  parking  lot  number  to 
PAS33.  These  are  obtained  from  PB5  and  PB14  of  the  greeter 
transaction  respectively  in  the  gate  logic  section.  After 
PAS3L  is  set,  the  number  of  greeters,  PAS32,  is  added  to  PB5 
of  the  passenger  transaction.  The  parking  lot  number,  PAS 33, 
is  placed  in  a  reset  condition  for  use  by  the  next  passenger 
transaction  finding  a  matching  greeter.  The  active  transaction 
proceeds  to  CTRLO  to  continue  landside  routing. 

When  the  terminating  passenger  transaction  marked  for 
gate  meeting  does  not  unlink  a  greeter,  the  transaction  is 
transferred  to  DEP28.  An  ASSIGN  block  places  the  program 
location  DEP29  into  PH4  and  transaction  is  linked  to  GREGC. 

This  will  transfer  the  passenger  transaction  to  this  location 
when  unlinked  later  by  the  greeter  transaction  in  the  gate 


Enplaning  Passenger  Logic 

The  first  block  in  this  section  is  at  location  ENPLO. 
Because  this  is  the  B  operand  of  the  JOBTAPE  statement  in 
the  program  definition  statement  section,  all  transactions 
created  by  the  Auxiliary  Program  and  written  on  the  JOBTAPE 
are  routed  to  this  block.  The  first  transaction  does  not 
represent  an  enplaning  passenger  group,  but  was  written  on 
the  JOBTAPE  to  provide  an  initial  time  coincident  with  the 
start  of  the  simulation  to  reference  the  entry  times  of  all 
originating  enplaning  passenger  transactions.  This  first 
dummy  transaction  is  transferred  to  ENPL9,  where  a  CHANGE 
block  referencing  CHNGO  redefines  the  operation  performed 
by  the  block  at  ENPLO.  All  succeeding  transactions  will 
transfer  to  program  locations  in  the  enplaning  passenger  logic 
based  upon  the  selection  function  ENP1F .  The  dummy  trans¬ 
action  is  then  terminated. 

Function  ENP1F  will  route  the  JOBTAPE  transactions  to 
ENPLl,  ENPL2  or  ENPL3  based  upon  respective  values  of  1, 

2  or  3  in  PB3.  The  parameter  was  assigned  these  values 
in  the  Auxiliary  Program  to  represent  domestic,  commuter  or 
international  passengers,  respectively. 

Transactions  representing  transfers  out  of  the  system 
are  arbitrarily  assigned  a  value  1  as  the  point  number 
designator  in  PH2  and  the  routing  function  TOSEF  is  assigned 
to  PB1 .  This  transaction  is  transferred  +-o  CTRLO  to  begin 
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landside  processing. 

The  originating  enplaning  domestic  passenger  transaction 
is  assigned  the  function  EDPIF  in  PB1  and  a  random  number  from 
the  variable  RND2U  in  PB10.  The  latter  serves  as  an  argument 
to  DBAGF,  the  function  used  in  the  next  block  to  assign  the 
number  of  bags  to  PB4 .  This  transaction  then  transfers  to 
CTRLO. 

Enplaning  commuter  passenger  transactions  are  assigned 
their  processing  function,  ECP1F,  to  PBl  at  location  ENPL2. 

The  number  of  bags  assigned  to  PB4  from  function  CBAGF  and 
the  transaction  is  transferred  to  CTRLO. 

International  enplaning  passengers  transfer  to  ENPL3 
from  ENPLO.  The  routing  function  assigned  to  PBl  is  EIP1F 
and  PB4  obtains  the  number  of  bags  from  the  function  IBAGF. 
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Facility  Modules  Section 

This  section  describes  the  program  logic  of  17  modules 
used  to  simulate  landside  processing  facilities.  These 
operate  independently,  with  few  direct  linkages  from  one 
module  to  another.  Transactions  are  generally  routed  from 
one  of  these  modules  to  another  through  the  use  of  the  routing 
function  and  a  transfer  to  CTRLO  of  the  Control  Module  or 
the  assignment  of  the  address  of  another  module  to  PH4  and  a 
transfer  to  CTRLI,  also  in  the  control  module. 

Two  modules.  Baggage  Unloading  Logic  and  Deplaning 
Curb  (Cars)  simulate  landside  activities  not  performed  by 
passengers.  All  others  involve  passenger  simulation. 

1.  Bag  Claim 

This  module  begins  at  location  BAGCO ,  when  a  test  is 
performed  on  PB4  of  the  entering  transaction  to  determine  if 
the  number  of  simulated  bags  associated  with  this  transaction 
is  zero.  If  PB4  is  zero,  the  transaction  returns  immediately 
to  CTRLO.  All  other  transactions  proceed  to  a  HELPA  block 
and  return  from  FORTM  with  the  point  number  of  the  bag  claim 
facility  assigned  to  PH2 ;  the  value  4  to  PB11  and  the  landside 
facility  number  to  PH7 .  The  transaction  is  then  advanced  by 
TRUXH,  the  walking  time  from  the  last  facility. 

Byte  parameter  13  is  tested  for  a  zero  value.  When 
this  occurs,  indicating  that  a  greeter  transaction  is  being 
processed,  the  transaction  attempts  to  unlink  the  corresponding 
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passenger  transaction  from  the  chain  GREBC  by  matching  PH10 
of  both  transactions.  If  successful,  the  greeter  transaction 
proceeds  to  a  GATE  LR  block  at  BAG  3.  Since  logic  switch 
PAS4L  is  normally  in  a  reset  condition,  the  greeter  transac¬ 
tion  continues  and  assigns  the  number  of  greeters  in  PB5  to 
PAS42  and  the  parking  lot  number  PAS43 .  Logic  switch  PAS4L 
is  set  to  allow  the  passenger  transaction  to  obtain  these  two 
values.  If  the  vehicle  used  by  the  greeter  was  assigned  to 
proceed  to  the  curb,  then  the  greeter  transaction  is  routed  to 
GRTY3  to  simulate  removal  from  the  parking  facility.  Other¬ 
wise,  the  greeter  transaction  is  terminated.  A  greeter  trans¬ 
action  unable  to  unlink  a  passenger  transaction  is  transferred 
to  BAGC2  where  it  places  BAGC3  in  P  "4  and  then  links  this 
transaction  on  the  user  chain  GREBC. 

Passenger  transactions  are  routed  to  BAGCl.  A  savevalue 
recording  the  occupancy  at  the  point  where  the  bagclaim 
facility  is  located  is  incremented  by  PB5,  the  number  of 
passengers  in  the  party.  Matrix  element  MH1(PH1,1)  is  tested 
for  a  value  of  zero,  to  determine  if  all  bags  have  been 
delivered  to  the  bagclaim  for  the  flight.  When  this  occurs, 
no  time  for  bag  delivery  or  pickup  is  simulated.  The  passen¬ 
ger  transaction  parameter  byte  12  is  tested  for  a  value  2, 
to  determine  if  the  simulated  greeter  and  passenger  matching 
process  will  occur  at  bagclaim.  For  PG12  not  equal  to  2,  the 
passenger  transaction  proceeds  to  BAGC4  for  a  transfer  to 
CTRLO. 
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When  PB12  is  2,  the  passenger  transaction  attempts 
to  unlink  a  matching  greeter  transaction  from  chain  GREBC. 

If  successful,  the  passenger  transaction  waits  for  the 
unlinked  greeter  transaction  to  set  PAS4L.  The  values  PAS42 
and  PAS43  are  subsequently  assigned  to  PB5  and  PB14 ,  respec¬ 
tively,  and  logic  switch  PAS4L  is  reset.  The  passenger 
transaction  transfers  to  BAGC4  for  immediate  transfer  to  CTRLO. 

Passenger  transactions  unsuccessful  at  unlinking  greeter 
transactions  are  sent  to  BAGC5 ,  and  BAGC6  is  assigned  to  PH4 
and  the  passenger  transaction  is  placed  on  the  chain  GREDC. 

When  bag  delivery  from  the  aircraft  is  incomplete,  the 
address  BAGC7  is  placed  in  PH4  and  the  passenger  transaction 
is  placed  on  the  chain  assigned  to  PH6  by  the  deplaning 
passengers  logic.  The  unlinking  from  this  chain  occurs  in 
the  Baggage  Unloading  Logic  Module.  Upon  return  from  BAGC7 , 
after  unlinking  from  the  PH6  baggage  chain,  the  test  for 
greeter  matching  and  subsequent  activity  described  above  is 
performed. 

2.  Baggage  Unloading  Logic 

This  module  is  accessed  by  arriving  flight  transactions 
generated  by  the  Deplaning  Passenger  Logic.  The  first  block 
of  this  module,  at  BUNCO,  changes  the  priority  of  the  entering 
flight  transaction  from  10  to  5,  and,  through  use  of  the 
BUFFER  operand,  places  it  below  the  passenger  transactions 
on  the  current  events  chain  and  restarts  the  chain.  This 
operation  allows  the  passenger  transaction  to  execute  the 
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assemble  subroutine  BAGS  before  the  baggage  unloading  logic 
operates . 

The  number  of  halfword  and  byte  parameters  of  the  flight 
transaction  are  changed  to  9  and  40  respectively.  A  HELPA 
block  is  enacted  to  assign  MH7  row  numbers  to  transaction 
parameter  bytes.  Each  element  of  MH7  represents  a  count  of 
simulated  passenger  bags  placed  in  the  array  by  subroutine 
BAGS.  Subprogram  FORTM  extracts  each  element  beginning  with 
the  lowest  numbered  and  computes  the  cumulative  sum  of  the 
elements.  At  the  same  time  FORTM  examines  the  cumulative 
sum  after  each  element  is  added.  Each  time  the  sum  exceeds 
an  integral  multiple  of  the  C-operand,  it  places  the  MH7  row 
number  in  a  parameter  byte,  starting  with  number  40  and  decre- 
meeting  to  number  1,  and  then  increases  the  C-operand  multiplier 
by  one. 

An  ADVANCE  block  simulates  the  aircraft  unloading  time 
based  upon  a  random  draw  from  a  distribution.  Bag  delivery 
is  simulated  by  unlinking  all  passenger  transactions  from  the  PH6 
bag  claim  chain.  This  process  is  performed  in  a  loop,  with  the 
flight  transaction  byte  counter  decremented  from  40  to  1. 

The  PH3  value  assigned  by  BAGS  to  the  passenger  transaction 
is  compared  to  the  MH7  row  number  in  the  byte  parameter  of 
the  flight  transaction.  All  transactions  with  PH3  less  than 
or  equal  to  the  value  in  the  byte  parameter  are  unlinked.  The 
flight  transaction  time  is  advanced  30  seconds  between  each 


decrement,  simulating  a  large  wait  for  passenger  transaction 
with  high  PB3  values  than  those  with  low.  Passenger  trans¬ 
actions  are  routed  to  BAGC7  by  a  transfer  to  CTRL1. 

The  PH6  chain  is  released  by  a  LOGIC  R  block.  Matrix 
savevalue  MH1  (PH1,1)  is  assigned  a  value  2,  indicating 
that  the  delivery  of  all  bags  is  complete.  The  flight 
transaction  is  then  terminated. 

3.  Ticketing  and  Check-In 

This  module  is  entered  by  enplaning  and  some  deplaning 
and  transfer  passenger  transactions.  Greeter  transactions, 
routed  to  simulate  the  meeting  of  greeters  and  deplaning 
passengers  without  baggage,  also  utilize  this  program  section. 

At  CHEKO,  the  first  program  location  of  this  module, 
the  Boolean  variable  CHKlB  is  used  to  test  transaction  para¬ 
meters  PB7  and  PB9  and  the  value  produced  by  random  number 
generation  RN7 .  The  test  simultaneously  determines  if  PB7 
equals  1,  indicating  an  enplaning  passenger  transaction;  if 
PB9  is  zero,  indicating  a  preticketed  status;  and,  if  PB7  is 
less  than  the  input  percentage  of  preticketed  passengers 
proceeding  directly  to  the  gate.  When  CHKlB  is  true,  the 
transaction  bypasses  the  ticketing  and  check-in  procedure  and 
is  routed  directly  to  CTRLO,  for  transfer  to  the  Security 
Module . 

Transactions  requiring  processing  by  the  module  execute 
a  HELPA  block.  They  are  assigned  the  following  parameter 
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values  by  FORTM :  point  number  is  PH 2 ;  program  location 
CHEK2  or  CHEK3  is  PH4 ;  the  GPSS  storage  or  queue  number 
for  the  check-in  facility  of  the  MH1(PH1,3)  airline  is  PH5; 
the  landside  facility  number  is  MH9  in  PH7 ;  and  the  process 
code  number  2  or  14  in  PB11,  to  indicate  express  or  full 
service  check-in. 

An  ADVANCE  block  simulates  the  walking  time  from  the 
previous  facility.  Byte  parameter  13  is  tested  for  a  zero 
value.  When  PB13  is  zero,  indicating  a  greeter  transaction, 
a  set  of  logical  operations  simulating  the  greeting  process 
and  identical  to  these  performed  at  Bagclaim,  is  executed. 

Passenger  transactions  are  transferred  to  CHECK9  and  PB12 
is  tested  for  a  value  of  3,  the  flag  indicating  a  deplan¬ 
ing  passenger  transaction  to  be  greeted  at  the  enplaning 
level  lobby.  These  deplaning  passenger  transactions  also 
simulate  the  greeting  process  using  program  logic  identical 
to  that  in  the  Bagclaim  Module. 

Transactions  with  PB12  not  equal  to  3,  transfer 
to  CHEK6 .  At  this  location  another  test  is  performed,  this 
time  on  PB8 ,  to  determine  if  the  transaction  represents  a 
terminating  passenger.  This  transaction  type  is  transferred 
to  CTRLO.  All  other  transactions  increment  the  occupancy 
PH2  savevalue  by  the  value  in  PBS. 

The  passenger  transaction  requiring  a  simulation  of 
the  check-in  process  joins  a  queue  at  the  PH5  facility  and 
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the  time  of  entry  is  marked.  When  the  transaction  is  ready 
to  enter  the  service  process  simulation,  the  waiting  time 
deviation  is  placed  in  PH11  and  the  transaction  transfers 
to  CHEK2  for  a  preticketed  passenger  check-in,  or  to  CHEK3 
for  full  service.  Service  time  for  each  facility  is  drawn 
from  the  applicable  service  time  distribution.  For  the 
preticketed  passenger  transaction  only  one  distribution 
is  used.  However,  for  simulation  of  full  service  ticketing, 
the  selection  function  ATK1F  will  choose  the  service  time 
from  the  distribution  applicable  to  the  airline  number 
represented  in  MH1(PH1,3).  Halfword  savevalue  CHKXH  is 
assigned  the  value  of  the  airline  number  and  is  used  as  the 
argument  for  the  function  ATK1F.  Upon  completion  of  the 
simulated  ticketing  and  check-in  process,  the  occupancy 
count  is  decremented  by  PBS.  The  flow  count  in  MH13  is  incre¬ 
mented,  and  the  transaction  transfers  to  CTRLO. 

4 .  Immigration 

This  module  is  entered  by  deplaning  international  pass¬ 
enger  transactions.  At  IMMIO,  a  HELPA  call  to  FORTM  results 
in  the  following  parameter  assignments:  point  number  of  the 
facility  is  PH2;  GPSS  queue  and  storage  number  is  PH5;  landside 
facility  number  is  PH7  and  PH8;  and  the  value  13  in  PBll  to 
denote  immigration  processing. 

The  walking  time  from  the  previous  facility,  TP.VXH,  is 
simulated  by  an  ADVANCE  block.  The  PH2  occupancy  count  is 
incremented  by  PB5 .  The  transaction  enters  a  QUEUE  block  if 
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the  storage  is  full  or  begins  simulated  service  if  it  is  not 
full.  The  simulated  service  time  is  obtained  from  the  variable 
FMM1V .  After  leaving  the  PH5  storage,  the  transaction  decre¬ 
ments  the  occupancy  count  by  PB5  and  increments  the  immigration  floi 
count  IMIG  by  the  same  value .  The  module  is  exited  by  a  transfer 
to  CTRLO. 

5.  Customs 

This  module  is  also  entered  by  international  deplaning 
passenger  transactions .  The  HELPA  block  at  CUSTO  returns  with 
the  same  type  of  information  in  PH2,  PH5 ,  and  PH7  as  in  the 
immigration  module.  PB11  is  assigned  a  value  5  to  signify 
customs  processing. 

All  simulation  processing  is  identical  to  that  performed 
in  the  immigration  module.  The  service  time  is  provided  by 
the  variable  CUS1V. 

6 .  Concourse  Exit 

This  module  provides  a  program  location  for  accumulating 
the  count,  in  MH11,  of  simulated  passengers  and  visitors 
exiting  concourses  and  entering  the  terminal  lobby.  At  CNCRO 
the  HELPA  block  assigns  the  point  number  of  the  exit  to  PH2 
and  the  FACNO  numbers  of  the  security  station  for  this  con¬ 
course  to  PH5 .  The  walking  time  from  the  gate  to  this  exit 
is  simulated.  After  incrementing  the  matrix  element  MHll  (PHI, 

PH5)  by  the  value  PB5 ,  to  increase  the  passenger-visitor 
concourse  count,  the  transaction  is  transferred  to  CTRLO. 
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7.  Deplaning  Curb  (Cars) 

In  this  module,  vehicles  proceeding  to  the  curb  to  greet 
terminating  passengers  are  simulated.  Assignments  to  curb- 
side  or  double  parking  are  made  by  this  module,  based  upon 
current  space  availability.  A  limited  queue  at  each  curbside 
section  is  established  if  storage  representing  curbside  or 
double  parking  is  filled.  Congestion  of  vehicular  traffic 
resulting  from  lane  blockage  due  to  double  parking  and 
queueing  is  simulated.  The  program  logic  inspects  only  the 
curbside  section  assigned  to  the  bagclaim  area  of  the  term¬ 
inating  passenger  for  space  availability.  When  no  space  is 
available  the  vehicle  transaction  simulates  a  recirculating 
process . 

Vehicle  transactions  routed  to  DCARO  represent  greeters 
arriving  at  the  airport  for  simulation  of  passenger-greeter 
meetings  at  the  curbside.  These  are  delayed  by  a  random  draw 
of  the  function  DCA1F  which  represents  the  distribution  of 
times  of  arrival  of  greeters  at  the  airport  landside.  These 
vehicle  transactions  are  joined  at  DCAR1  by  those  representing 
vehicles  removed  from  the  parking  lot  by  the  greeter  trans¬ 
action  after  simulation  of  their  matching  process  within  the 
terminal  building.  Vehicular  counts  on  the  en+-ry  road  and 
deplaning  curbside  approach  section  are  incremented  by  1 
at  DCAR1  and  the  next  block,  respectively. 
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A  HELPA  call  to  FORTM  assigns  a  GPSS  storage  number  to 
the  transaction  in  PH6  and  the  value  1,  2,  or  3  is  assigned 
to  PH10  to  indicate  curbside  parking,  double  or  queuing, 
respectively.  If  no  available  space  is  located,  a  simulated 
recirculation  of  the  vehicle  will  be  performed.  PH6  is  then 
assigned  a  value  zero  and  PB10  is  4. 

The  byte  parameter  4,  as  operand  in  the  HELPA  block, 
determines  if  the  vehicle  will  proceed  to  the  enplaning  or 
deplaning  curb.  When  PB4  is  zero,  indicating  that  the  pass¬ 
enger  and  greeter  transactions  are  without  simulated  bags  and 
the  greeting  process  will  take  place  at  the  enplaning  level 
lobby,  FORTM  assigns  a  storage  number  to  PH6  corresponding  to 
enplaning  curbside  parking,  double  parking  or  queuing.  When 
PB4  is  non-zero,  the  assignment  is  made  to  a  deplaning  curb 
storage.  Recirculation  is  provided  for  either  PB4  condition 
when  required. 

Upon  return  to  GPSS,  a  test  on  PB4  for  a  non-zero  value 
is  performed.  Transactions  with  PB4  zero  values  are  transferred 
to  DCARO .  Because  the  simulated  vehicle  may  pass  other  curb- 
side  sections  to  arrive  at  the  assigned  section,  the  program 
must  determine  if  lane  blockage  occurs  at  this  section  to  be 
bypassed.  The  first  deplaning  curb  storage  number  minus  1 
is  placed  on  PH8  and  PH4  and  the  first  deplaning  double  parking 
storage  number  minus  one  is  PH 5 . 


A  variable  DEPLS  is  established  and  assigned  in  PH8  for 
the  purpose  ..  comparison  with  PH6.  This  will  determine  if 
the  GPSS  storage  number  of  the  curbside  parking,  double 
parking  or  queue,  contained  within  the  curb  section  where  the 
transaction  is  currently  located,  matches  the  destination 
storage  of  the  transaction.  Because  the  value  of  DEPLS 
depends  upon  PB10,  comparison  of  PH8  with  PH6  will  only  be 
between  storage  numbers  representing  identical  facility  types. 
Recirculating  vehicle  transactions  do  not  calculate  the  value 
of  DEPLS  for  assignment  in  PH8 .  These  transactions  transfer 
to  DCARB  and  are  joined  by  the  transactions  with  DEPLS 
assigned  to  PH8 . 

Vehicle  transactions  transferred  to  DCARD  are  assigned 
a  value  of  1  less  than  numbers  of  the  RPSS  storages  representing 
the  curbside  at  the  first  enplaning  curb  section  in  PH4 
and  the  double  parking  area  at  the  first  enplaning  curbside 
section  in  PH5 .  The  variable  ENPLS  performs  the  same  function 
as  DEPLS  but  operates  on  enplaning  curb  storage  and  is  assigned 
to  PH8.  All  transactions  proceed  to  DCARB. 

The  loop  for  simulating  lane  blockage  and  delay  is  begun 
at  DCARB.  PH8  is  incremented  by  1  each  time  this  block  is 
passed.  Non-recirculating  vehicle  transactions  test  PH8  against 
PH6  to  determine  if  the  current  curbside  facility  is  the 
destination.  When  PH8  equals  PH6,  the  transaction  proceeds  to 
DCARA  to  simulate  parking.  Otherwise,  PH4  and  PH5  are  each 
incremented  by  1.  A  Boolean  variable  LNFLD  determines  if 


all  lanes  are  blocked  in  the  current  curb  section,  and  holds 
the  vehicles  at  the  TEST  block  if  this  occurs.  Otherwise, 
the  PH5  storage  is  tested  to  determine  if  any  vehicles  are 
double  parked.  When  no  double  parking  occurs,  the  land  delay, 
LNDLY,  is  zero  and  the  transaction  performs  a  test  to  deter¬ 
mine  if  the  current  curb  section  transfers  to  DCARA  for  the 
last  section  of  DLARB  for  passing  the  next  curb  section. 

When  lane  blockage  occurs,  the  maximum  number  of  lanes 
available  is  decremented  by  one  and  assigned  to  NOLAN.  The 
delay  for  each  vehicle  is  calculated  as  2x3/NOLAN  and  placed 
in  the  variable  LNDLY.  Each  transaction  passing  the  current 
curb  section  is  delayed  by  an  ADVANCE  V8 LNDLY  block.  The 
same  test  and  routing  to  DLARA  ar  DC ARB  is  performed. 

At  DCARA,  the  count  of  vehicles  as  the  deplaning  curb 
is  incremented  by  1  and  the  entry  time  into  this  section 
is  marked  in  PH8.  Byte  parameter  10  is  tested  for  values 
1,  2,  or  3.  The  value  1  routes  the  transaction  to  DCAR5; 

2  to  DCAR4;  and  3  enters  the  vehicle  in  the  storage 
representing  queuing  at  the  destination  curb  section. 
Recirculating  vehicle  transactions  have  CIRCO  assigned  to 
PH4  and  transfer  to  CTRLl. 

Queuing  vehicle  transactions  enter  storage  PH6,  change 
their  priority  level  to  12,  then  link  on  a  chain  numbered 
PH6 .  These  will  be  released  when  corresponding  greeter  vehicle 
and  passenger  transactions  are  matched  in  the  deplaning  curb 
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passenger  logic.  A  transaction  is  released  from  DPLlC  and 
routed  to  DCAR2,  when  the  simulated  matching  takes  place 
between  the  passenger  and  a  vehicle  at  curbside.  At  the 
section  following  DCAR2 ,  the  transaction  representing  a 
previously  double  parked  vehicle  will  move  into  the  storage 
representing  the  curbside,  reset  its  priority  level  to  10, 
relink  itself  on  chain  DPLlC  and  remove  one  transaction  from 
the  queue  chain,  and  route  the  transaction  to  DCAR3. 

Vehicle  transactions  released  from  DPC1C  by  the  deplaning 
curb  passenger  logic,  representing  double  parked  vehicles, 
release  one  transaction  from  the  queue  and  transfer  it  to 
DCAR3 . 

At  the  program  location  DCAR3,  PB7  is  tested  for  a 
value  zero.  A  non-zero  value  indicates  that  the  transaction 
is  a  greeter  vehicle  using  the  enplaning  curb  and  transfers 
it  to  ENPC8 .  Deplaning  curb  vehicle  transactions  continue 
to  the  next  block  and  leave  the  PH6  storage  entered  above  by 
queueing  vehicle  transaction.  The  number  of  the  double  parking 
storage  associated  with  the  queue  previously  departed  is  placed 
in  PH6 .  Byte  parameter  10  is  assigned  a  value  2,  signifying 
double  parking.  The  transaction  proceeds  to  the  next  block 
at  DCAR4. 

All  double  parking  vehicle  transactions  proceed  through 
DGAR4,  where  the  priority  level  is  set  at  11.  These  trans¬ 
actions,  and  the  transactions  representing  vehicles  to  be 
parked  at  curbside,  enter  the  PH6  curb  or  double  parking  storage 
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at  DCAR5. 


An  attempt  to  unlink  waiting  pass*  ers  from  the  chain 
DPL2C  by  matching  equal  values  of  PH10  in  the  vehicle  and 
greeter  transactions  results,  if  successful,  in  a  transfer 
to  DPLC9 .  If  unsuccessful,  the  vehicle  transaction  is  linked 
on  chain  DPL10. 

The  model  generates  a  transaction  to  perform  a  policing 
function.  This  transaction  will  remove  vehicle  transactions 
remaining  in  double  parking  or  queuing  longer  than  a  pre¬ 
scribed  time  limit.  The  length  of  time  allowed  in  these  two 
facilities  is  specified  in  an  ADVANCE  block  in  DLAR6.  After 
passing  DCAR6 ,  the  transaction  unlinks  all  transactions 
representing  double  parked  vehicles  on  the  chain  DPL1C  if 
the  absolute  clock  time  is  greater  than  the  entry  time  into 
these  two  facilities  plus  300  seconds.  These  vehicle  trans¬ 
actions  are  transferred  to  DCAR8. 

The  policing  transaction  places  the  total  number  of  all 
curb  sections,  enplaning  and  deplaning,  in  PHI.  The  APSS 
storage  number,  DPQCS,  of  the  first  deplaning  curb  queue  is 
placed  in  PH2 .  At  DCAR7,  the  program  unlinks  the  vehicles 
from  the  PH2  chain  if  they  have  been  in  the  queue  longer  than 
30  seconds.  This  chain  has  the  same  number  as  the  storage 
representing  a  queue  at  a  curb  section.  The  program  increments 
PH2  by  one  and  loops  back  to  DCAR7 .  Because  the  storage  and 
chains  representing  queues  at  curb  sections  were  numbered 
continuously  for  deplaning  and  enplaning  curbs  by  SYN  state¬ 
ments,  executing  this  loop  PHI  times  will  remove  all  queued 
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vehicle  transactions  and  transfer  them  to  DCAR9.  The 
policing  transaction  is  transferred  back  to  DCAR6  to  await 
the  next  enforcement  time. 

Double  parked  vehicle  transactions  forced  to  leave  the 
chain  DPL1C  and  transferred  to  DCAR8,  unlink  one  vehicle 
transaction  from  the  queue  chain  corresponding  to  the  storage 
representing  double  parking.  The  unlinked  transaction  is 
routed  to  DCAR3.  The  previously  double  parked  vehicle  trans¬ 
action  proceeds  to  the  next  block  DCAR9 . 

At  DCAR9,  previously  queued  and  double  parked  vehicle 
transactions  leave  the  PH6  storage.  The  priority  level  is 
dropped  to  10.  For  vehicle  transactions  assigned  to  enplaning 
curb  sections,  the  waiting  time  spent  queued  or  at  double 
parking  is  added  to  PH11.  This  addition  is  performed  for  this 
type  of  vehicle  transaction  because  only  queued  vehicle  trans¬ 
actions  are  forced  to  leave  the  enplaning  curb.  Double  parked 
vehicle  transactions  remain  at  this  curbside  without  a  simu¬ 
lated  enforcement  process.  Furthermore,  the  vehicle  using  the 
deplaning  curb  has  a  waiting  time  dependent  upon  time  of 
arrival  at  the  landside.  Simulated  waiting  time  for  this 
transaction  type  is  not  entirely  dependent  upon  landside  service 
processes  and  is  not  entered  into  wating-time  tables. 

Vehicle  transactions  leaving  the  deplaning  curb  area  are 
assigned  to  program  location  CIRCO  to  simulate  a  recircula¬ 
tion  process.  Vehicles  directed  away  from  the  enplaning  curb 
area  begin  recirculation  at  CIRC1. 
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8.  Deplaning  Curb  (Pax) 

The  terminating  deplaning  passenger  transactions  are 
routed  to  DPLCO  for  subsequent  matching  with  greeter  vehicle 
transactions,  loading  into  taxis  or  loading  into  buses  or 
limos.  A  HELPA  call  to  FORTM  by  the  transaction  returns  with 
the  point  number  of  the  deplaning  curbside  section  in  PH2, 
the  landside  facility  number  in  PH7 ,  and  the  value  12  in  PBll. 
The  transaction  is  advanced  by  TRUXH ,  the  walking  time  from 
the  last  facility  utilized.  Using  the  selection  function 
DPL1F,  a  branch  to  DPLC3,  DPLC4  or  DPLC5  is  executed  for 
transactions  assigned  to  private  vehicle,  taxi,  or  bus/limo 
modes,  respectively. 

Transactions  transferred  to  DPLC3  attempt  to  unlink 
waiting  vehicle  transactions  from  the  chain  DPL1C,  even 
if  previous  matching  between  greeter  and  passenger  transactions 
has  taken  place  within  the  terminal  building.  This  is 
because  simulated  vehicles  removed  from  the  parking  facility 
after  the  terminal  building  greeting  process  and  subsequent 
routing  to  the  curbside,  perform  the  same  logical  operations 
as  greeter  vehicle  transactions  proceeding  directly  to  curb- 
side  from  the  airport  boundary.  The  unlinked  vehicle  trans¬ 
action  is  transferred  to  DPLC9  and  the  passenger  transaction 
transfers  to  DPLC1.  Unsuccessful  passenger  transactions  are 
transferred  to  a  second  UNLINK  block  to  attempt  unlinking 
transactions  representing  greeters  before  vehicles  have 
recirculated  and  parked:  these  are  located  on  chain  DPL3C. 
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Greeter  transactions  are  transferred  to  DPCG2  and 


passenger  transactions  go  to  DPCGl.  Passenger  transactions 
unsuccessful  in  removing  transactions  from  DPL3C  are 
transferred  to  DPLC2. 

The  passenger  transactions  unlinking  a  greeter  vehicle  from 
DPL1C  are  held  by  a  GATE  block  at  DPLC1  until  the  vehicle 
transaction  places  the  storage  number  of  the  curb  section  half¬ 
word  savevalue  PASS1,  the  PB10  flag  in  byte  savevalue  PASS2 
and  sets  the  logic  switch  PASSL.  The  passenger  then  proceeds 
and  places  PASS1  in  PH6  and  PASS2  in  PB10.  The  passenger 
transaction  resets  PASSL  and  simulates  the  vehicle  loading 
time  by  advancing  the  value  DPLlV.  Byte  parameter  10  is 
tested  for  a  value  1  to  determine  if  the  greeter  vehicle 
will  leave  from  the  curbside.  When  this  occurs,  the  storage 
number  of  the  curbside  is  placed  in  TMPXF  for  calculating  a 
random  pull-out  -ime  using  variable  DPL2V.  This  time  value  is 
retained  in  PH11  for  entry  in  the  table  of  waiting  times. 

The  passenger  transaction  leaves  storage  PH6  and  unlinks  one 
vehicle  transaction  from  DPL1C  when  the  double  parking  storage 
adjacent  to  the  curbside  area  just  departed,  matches  PH6 . 

The  unlinked  vehicle  transaction  is  routed  to  DCAR2.  The 
passenger  transaction  transfers  to  DPLC8 . 

Greeter  transactions  with  PB10  not  equal  to  1,  transfer 
to  DPLC7  and  leave  the  PH6  double  parking  storage.  They  un¬ 
link  one  vehicle  transaction  from  the  queue  chain  for  vehicles 
awaiting  entry  to  the  double  parking  storage  just  departed. 


These  greeter  transactions  proceed  to  DPLC8  where  they  join 
the  passenger  transactions  from  the  curbside  and  increment 
the  count  of  vehicles  on  the  departing  road.  All  transac¬ 
tions  transfer  to  CTRLO. 

At  DPLC2,  those  passenger  transactions  unsuccessful 
at  unlinking  greeter  transactions  from  DPLC1  and  DPL3C  are 
assigned  the  address  DPLC1  in  PH4  and  are  linked  on  the 
chain  DPL2C  to  await  unlinking  by  which  transactions  in 
the  deplaning  curb  (cars)  logic. 

Greeter  vehicle  transactions  unlinked  from  DPL1C  are 
transferred  to  DPLC9 .  These  are  held  at  a  GATE  block  if 
PASSL  has  not  been  placed  in  a  reset  condition  by  a  passenger 
transaction.  When  able  to  proceed,  the  vehicle  transaction 
places  the  value  of  PH6  in  PASS1  and  PB10  in  PASS 2  to  provide 
information  to  the  matching  passenger  transaction.  The 
transaction  sets  logic  switch  PASSL,  to  allow  the  passenger 
transaction  at  DPLCl  to  proceed  and  is  then  terminated. 

Transactions  using  the  bus/limo  or  taxi  are  transferred 
to  blocks  DPLC4  or  DPLC5,  respectively  by  the  function  DPLC1F. 
At  DPLC4,  the  count  of  deplaning  passengers  waiting  for  a  bus 
or  limo,  DPCXH,  is  incremented  by  1 .  At  DPLC5,  the  loading 
time  of  the  taxi,  PDL1V,  is  simulated  by  an  ADVANCE  block.  The 
taxi  increments  the  count  of  vehicles  on  the  roadway  departing 
the  airport  by  1.  All  transactions  entering  these  two 
sections  are  transferred  to  CTRLO. 

A  transaction  representing  a  bus  or  limo  is  generated  in 
the  Control  Section  and  transferred  to  DPLC6 .  At  this  and 
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subsequent  blocks,  the  vehicle  transaction  increments  the 
count  of  vehicles  on  both  the  arriving  and  departing  road¬ 
ways.  It  also  removes  the  passengers  waiting  for  a  bus  or 
limo  by  assigning  the  halfword  savevalue  DPCXH  a  value  of  zero. 
This  transaction  is  then  terminated. 

The  last  three  areas  of  the  Deplaning  Curb  Section  (Pax) 
simulate  activities  of  greeters  intending  to  meet  passenger 
at  curbside  but  forced  to  recirculate  and  park  because  of 
congestion  at  the  curb.  At  location  DPCGO  the  greeter  trans¬ 
action  excutes  a  HELPA  block.  The  E-operand  is  used  as  a 
flag  to  indicate  that  this  transaction  represents  a  greeter 
acting  as  a  pedestrian  and  has  a  value  1. 

The  transaction  assigns  the  point  number  of  the  curb 
to  PH2 .  The  landside  facility  number  of  the  curbside  is 
placed  in  PH7  and  the  value  12  is  assigned  to  PB11.  The 
transaction  is  advanced  by  TRVXH ,  the  walking  time  from  garage 
to  curb.  The  greeter  transaction  attempts  to  unlink  a 
passenger  transaction  from  the  chain  DPL2C.  If  successful, 
the  passenger  transaction  transfers  to  DPLG1  and  the  greeter 
transfers  to  DPCG2.  Unsuccessful  greeter  transactions  are 
placed  on  chain  DPL3C  for  subsequent  unlinking  by  passenger 
transactions . 

At  DPCG1 ,  the  passenger  transactions  are  held  by  a  GATE 
block  until  switch  PAS5L  is  placed  in  a  set  condition  by  the 
greeter  transaction.  The  greeter  transaction  passes  through 
the  GATE  block  at  DPCG2;  then  places  the  number  of  greeters  in 
byte  savevalue  PAS 5 2  and  the  parking  lot  number  in  PAS53.  The 
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greeter  transaction  places  PAS5L  in  a  set  condition  and  is 
then  terminated. 

After  the  passenger  transaction  proceeds  past  the  GATE 
block,  PAS52  is  added  to  PBS  and  PAS53  is  assigned  PB14 . 

The  passenger  transaction  resets  PAS5L .  A  value  2  is 
assigned  to  PB6  to  indicate  a  parking  mode.  The  process 
function  pointer,  PB2 ,  is  reset  to  1  and  routing  function 
GRCPF  is  assigned  to  PB1.  This  routes  the  passenger 
transaction  to  the  parking  facility.  The  transaction  trans¬ 
fers  to  CTRLO. 
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9 .  Enplaning  Curb 


This  program  section  represents  the  activities  of  the 
originating  passenger  from  the  vehicular  approach  to  the 
enplaning  curbside,  through  the  parking  and  unloading  process 
to  entry  into  the  terminal  building.  Private  vehicles  and 
taxis  departing  the  curbside  after  separation  from  the 
passenger  groups  are  simulated.  Arrivals  of  buses  or  limos 
at  the  enplaning  curb  are  also  represented.  This  module 
contains  a  section  to  simulate  recirculation  of  vehicles  from 
either  enplaning  or  deplaning  curbsides. 

Transactions  representing  originating  passengers  are 
routed  to  ENPCO  if  the  simulated  mode  of  arrival  at  the  air¬ 
port  is  private  car  or  taxi,  or  to  ENPC2  if  the  mode  is  bus 
or  limo.  At  ENPCO  and  the  next  block,  the  count  of  vehicles, 
ARDXH,  on  the  airport  entrance  road  and  the  count  of  vehicles, 
ENPXH,  proceeding  to  the  enplaning  curbside,  are  both  incremented 
by  1 .  A  HELPA  call  to  FORTM  is  executed,  using  the  airline 
number  and  the  PBS  mode  operates . 

For  the  private  car  or  taxi  mode,  subprogram  FORTM 
searches  for  a  curbside  or  double  parking  space.  The  curbside 
associated  with  the  airline  specified  by  the  B  operand  is 
examined  first,  and,  if  necessary,  all  other  curbside  sections 
are  inspected  in  a  prespecified  order  with  adjacent  sections 
first  and  remote  sections  last.  If  a  space  is  located,  the 
.-  ir  ige  lumber  is  assigned  to  PH6 .  The  value  1  or  2 

-  PB1')  to  designate  curbside  or  double  parking, 

•  -  ;paco  is  available  at  the  two  above 


facility  types,  the  queue  associated  with  the  B-operand  air¬ 
line  curb  section  is  inspected  for  a  space.  An  available 
space  results  in  the  assignment  of  the  storage  number  repre¬ 
senting  the  queue  in  PH6  and  3  in  PB10. 

Transactions  representing  vehicles  parked  at  curbside 
or  in  a  double  parking  location  or  in  the  queue  are  assigned 
the  point  number  of  the  facility  to  PH2  and  the  landside 
facility  number  to  PH7 .  Vehicle  transactions  unable  to  locate 
any  space  are  forced  to  recirculate.  These  are  assigned  a 
value  zero  to  PH5  and  PH6  and  a  value  4  is  assigned  to 
PB10 . 

After  returning  from  FORTM,  the  model  performs  logical 
operations  to  model  congestion  due  to  lane  blockage.  The 
operations  performed  are  identical  to  those  in  the  deplaning 
curb  logic  with  two  exceptions.  First,  the  number  of  bags 
in  PB4  is  not  inspected  because  only  the  enplaning  curb 
congestion  is  modeled  by  this  section.  Secondly,  the  time 
spent  passing  through  the  congestion  is  recorded  in  PH11  for 
enplaning  curb  vehicle  transactions  but  not  those  using  the 
deplaning  curb. 

When  the  vehicle  transaction  is  at  the  section  containing 
the  storage  designated  by  PH6 ,  the  transaction  is  transferred  to 
ENPC1 .  Recirculating  vehicle  transactions  completing  simulated 
passage  of  all  curbside  sections  are  also  directed  to  ENPC1. 

The  subsequent  logical  operations  of  this  curbside  section 
closely  parallel  the  Deplaning  Curb  (Cars)  Section.  Transactions 
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representing  double  parked  vehicles  are  routed  to  ENPC4, 
where  their  priority  level  is  made  11,  as  before,  and  directly 
enter  the  PH6  storage  curbside  vehicle  transaction.  Queuing 
vehicles  enter  their  PH6  storage,  change  their  priority  level 
to  12,  as  before,  and  link  on  the  PH6  chain.  Recirculating 
vehicle  transactions  are  transferred  to  CIRC1 . 

Vehicles  transactions  in  curbside  or  double  parking 
storage  simulate  the  unloading  time  by  an  ADVANCE  block 
which  holds  the  transaction  by  the  amount  ENP1V.  A  SPLIT 
block  separates  the  vehicle  transaction  from  the  originating 
passenger  transactions.  The  passenger  transaction  is  tested 
for  a  preticketed  status.  If  PB9  is  zero,  indicating  this 
condition,  a  percentage  of  these  transactions,  defined  by 
halfword  savevalue  CRBXH ,  enter  an  ADVANCE  block  to  simulate 
curbside  check-in.  All  transactions,  including  those  repre¬ 
senting  non-preticketed  and  non-curbside  check-in  passengers 
are  transferred  to  CTRLO. 

The  vehicle  transactions  are  transferred  to  an  ADVANCE 
block  to  delay  the  transaction  for  simulatinq  empty-car  parking 
time.  The  vehicle  transaction  with  PB10  equal  to  1,  simulates 
a  random  pull-out  time  from  curbside  and  then  leaves  the  PH6 
storage.  This  transaction  unlinks  a  vehicle  transaction  from 
the  queue  corresponding  to  the  departed  curbside,  and  trans¬ 
fers  it  to  ENPC8 .  The  parked  vehicle  transaction  is  trans¬ 
ferred  to  ENPC9 . 
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Double  parked  vehicle  transactions  transfer  to  ENPC7 
and  immediately  leave  the  PH6  storage.  These  also  unlink 


one  vehicle  transaction  from  the  queue  adjacent  to  the 
double  parking  storage,  transfer  it  to  ENPC8  and  proceed 
to  ENCP9. 

At  ENPC9,  the  count  of  vehicles  on  the  departing  road 
is  incremented  by  1 .  If  no  well-wishers  are  simulated  to 
enter  the  terminal  building,  PB5  equals  PB13  and  the  vehicle 
transaction  is  terminated.  When  PB5  and  PB13  are  unequal, 
the  vehicle  transaction  executes  a  HELPA  call  to  FORTM 
to  determine  the  parking  facility  number  to  be  entered.  It 
then  increments  the  entry  count  of  the  parking  facility  and  is 
terminated. 

Queued  vehicle  transactions  released  from  the  PH6  chain 
by  previously  parked  vehicle  transactions  and  routed  to  ENPC8, 
test  PB7  for  a  value  of  1  to  determine  if  they  represent 
vehicles  using  the  deplaning  curbside.  Deplaning  curb  vehicle 
transactions  ar .  transferred  to  DCAR3 .  The  enplaning  curb- 
side  vehicle  transactions  proceed  to  the  next  block  and  add 
the  waiting  time  spent  in  queueing  to  PH11.  These  transactions 
leave  the  PH6  storage  which  represented  the  queue,  and  assign 
the  storage  number  of  the  curbside  in  the  same  curb  section  to 
PH6  and  assign  one  to  PB10.  The  PH6  curbside  storage  is  tested 
for  occupancy  and,  if  not  full,  the  vehicle  transaction  enters 
it  at  ENPC5 .  When  the  curbside  storage  is  full,  the  corres¬ 
ponding  double  parking  storage  number  is  assigned  to  PH6 . 


Byte  parameter  10  is  assigned  the  value  2,  the  priority 
level  of  the  transaction  is  changed  to  11  and  the  transaction 
enters  the  PH6  storage  at  ENPC5.  The  vehicle  transaction  is 
then  terminated.  Enplaning  passenger  transactions  assigned 
to  the  bus/limo  mode  are  routed  to  ENPC2 .  A  HELPA  call  to 
FORTM  returns  with  the  loadside  facility  number  of  the  bus 
stop  for  the  airline  designated  by  the  B-operand  placed  in 
PH6  and  the  point  number  of  the  facility  is  PH2.  The  trans¬ 
action  has  the  program  address  ENPC3  assigned  to  PH4  and  is 
linked  on  the  chain  EBUSC  to  await  arrival  of  the  simulated 
bus/limo  at  the  enplaning  curbside.  After  unlinking  by  the 
bus/limo  transaction,  the  enplaning  passenger  transaction 
is  transferred  to  CTRLO. 

The  transaction  generated  by  the  Control  Section  repre¬ 
senting  the  bus/limo  is  routed  to  ENPC6 .  At  this  location 
the  transaction  increments  the  halfword  savevalue  ARDXH , 
the  count  of  vehicles  on  the  approach  roadway.  An  ADVANCE 
block  simulates  the  unloading  time  of  the  passengers  from 
the  vehicle.  This  transaction  unlinks  all  passenger  trans¬ 
actions  placed  on  EBUSC  by  the  instructions  following  ENPC2 
and  transfers  them  to  CTRL1 .  The  count  of  vehicles  on  the 
departing  road,  DRDXH ,  is  incremented  by  1  and  the  bus/ 
limo  transaction  is  terminated. 

The  recirculation  roadway  logic  is  also  contained  in  this 
section.  Vehicle  transactions  assigned  to  the  Deplaning  Curb 
(Cars)  logic  are  transferred  to  CIRCO  for  recirculation. 
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An  ADVANCE  block  simulates  the  vehicle  recirculation  time  and 


the  count  of  vehicles  proceeding  from  the  deplaning  curb  to  the 
recirculation  roadway,  RCDXH,  is  incremented  by  1.  A  test 
of  PB12  for  zero,  determines  if  the  transaction  was  routed 
to  perform  the  matching  process  with  the  terminating  passenger 
transaction  only  at  the  curbside.  A  percentage  of  these 
transactions  specified  by  halfword  savevalue  CPKXH  are 
selected  to  enter  the  parking  facility.  The  PB6  mode  is 
assigned  a  value  2  and  the  routing  function  GRECF  is  assigned 
to  this  transaction.  The  transaction  is  then  transferred  to 
CTRLO . 

All  other  deplaning  curb  recirculating  transactions, 
those  with  PB12  non-zero  and  those  not  parking,  are  routed  to 
DCAR1  to  repeat  the  deplaning  curb  logic  instructions. 
Recirculating  vehicle  transactions  transferred  from  the 
enplaning  curb  logic  to  CIRC1  are  advanced  by  the  value 
CIRCV  to  simulate  recirculation  time.  The  count  of  these 
transactions,  RCEXH,  is  incremented  by  1  and  the  trans¬ 
actions  then  transferred  to  ENPCR  to  return  to  the  enplaning 
road  logic. 
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10.  Entrance 


Originating  enplaning  transactions  and  greeter  transactions 
with  non-zero  PB12  values  are  routed  to  ENTRO  to  simulate  entry 
into  the  terminal  building.  A  HELPA  call  to  FORTM  returns  with 
the  point  number  in  P42,  of  the  entrance  nearest  to  the  facility 
immediately  departed  by  the  transaction.  The  transaction 
advances  TRVXH,  the  amount  of  walking  time  from  the  last  point 
to  the  entrance.  The  Boolean  variable  DPDIN  is  tested  for  a 
value  of  1  to  determine  if  the  transaction  will  increment  the 
terminal  entry  count  on  the  deplaning  level.  When  this  occurs, 
the  transaction  represents  a  greeter  proceeding  to  bag  claim. 

The  halfword  savevalue  DPLIN  is  incremented  by  the  value  in 
PB5 .  The  transaction  is  transferred  to  increment  the  total 
count  of  all  entrances  in  halfword  savevalue  ENDUR  and  is 
then  transferred  to  CTRLO. 

All  other  transactions  are  assumed  to  enter  on  the 
enplaning  level.  These  increment  the  halfword  savevalue  ENDIN 
by  the  amount  of  PB5  and  also  increment  ENDOR.  These  trans¬ 
actions  also  transfer  to  CTRLO. 
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11.  Exit 


This  module  begins  at  program  location  EXITO.  A  HELPA 
call  to  FORTM  at  this  location  returns  with  the  point  number 
in  PH2,  to  the  exit  nearest  the  facility  immediately 
departed  from.  The  walking  time  from  the  last  facility  to 
the  exit  is  simulated  by  an  ADVANCE  block. 

The  Boolean  variable  DDOUT  is  used  to  determine  if  this 
transaction  represents  a  domestic,  international  or  commuter 
passenger  group  with  baggage.  These  transactions  increment 
the  halfword  savevalue  DPOUT,  the  count  of  passengers  and 
visitors  exiting  the  terminal  from  the  deplaning  level,  by  the 
value  in  PB5 .  This  transaction  type  also  increments  EXDOR  by 
the  value  in  PBS. 

All  other  transactions  are  assumed  to  represent  passen¬ 
gers  or  visitors  exiting  through  the  enplaning  level.  These 
increment  the  count  EPOUT,  for  this  level,  and  increment  the 
total  exit  count,  EXDOR,  both  by  the  value  in  PB5.  All 
transactions  entering  this  section  transfer  to  CTRLO. 
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12.  Gate  (Enplaning  pax) 

This  module  simulates  the  processing  of  enplaning  pass¬ 
engers  at  gate  counters,  matching  of  greeters  with  passengers 
and  separation  of  well-wishers  from  passengers.  A  subsection 
simulates  the  aircraft  boarding  process. 

Passenger  and  greeter  transactions  first  enter  this 
section  at  GATEO.  At  this  location,  a  HELPA  block  is 
executed.  This  results  in  assignment  of  the  point  number  of 
the  gate  facility  to  PH2  and  the  GPSS  storage  number  of  the 
gate  to  PH5 .  The  landside  facility  number,  identical  to  the 
gate  number,  is  assigned  to  PH7  and  PB11  is  given  a  value 
of  1. 

The  walking  time  from  the  last  facility  utilized  is 
simulated  by  an  ADVANCE  block.  Byte  parameter  13  is  teste'3 
for  a  value  zero,  to  determine  if  the  transaction  represents 
a  greeter.  Non-greeters  are  transferred  to  GATE 7 .  Greeter 
transactions  attempt  to  unlink  a  passenger  transaction  from 
the  chain  GREGC.  The  transaction  removed  is  routed  to  DEP29 
in  the  Deplaning  Passenger  Logic  Section.  The  greeter  trans¬ 
action  proceeds  to  GATE8 ,.  and,  after  passing  a  GATE  block, 
assigns  the  number  of  greeters  in  PBS  to  byte  savevalue  PAS 3 2 
and  the  parking  facility  number  is  PB14  to  byte  switch  PAS3L 
in  a  set  condition.  PB6  is  tested  for  a  value  1,  to  deter¬ 
mine  if  the  greeter  transaction  is  required  to  simulate  re¬ 
moval  of  the  vehicle  from  the  parking  facility  and  perform  a 
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subsequent  pickup  of  the  terminating  passenger  transaction 
at  curbside.  A  value  of  1  in  PB6 ,  indicating  the  routing 
of  passengers  and  greeters  to  the  parking  garage,  requires 
only  the  use  of  the  passenger  group  transaction,  and  the 
greeter  transaction  is  terminated. 

Greeter  transactions  with  PB6  unequal  to  1  have  zero 
assigned  to  PB5  and  GRT03  assigned  to  PH4.  These  transfers  to 
CTRL1  to  proceed  to  the  parking  facility.  Greeter  transac¬ 
tions  unable  to  unlink  a  passenger  transaction  from  GREGC 
are  transferred  to  GAT10.  At  this  location,  they  are  assigned 
the  address  GATE 8  in  PH4  and  link  on  the  chain  GREGC  for  later 
release  by  a  deplaning  passenger  transaction  in  the  Deplaning 
Passenger  Logic  Section. 

At  GATE 7 ,  enplaning  passenger  transactions  enter  a  TEST 
block  to  determine  if  well-wishers  are  included  in  the 
simulated  passenger  group.  Transactions  without  well-wishers 
represent  transfer  to  GATE3.  Those  transactions  including 
a  representation  of  well-wishers  enter  a  SPLIT  block  as  ' gn 
the  value  is  PB13  to  PB5  and  transfer  to  GATE3.  The  copy 
transaction  simulates  the  well-wishers.  The  number  of  pass¬ 
engers  in  PB13  of  this  transaction  is  simulated  from  PB5  and 
PB13  is  made  equal  to  zero.  A  well-wisher  routing  function, 
VTWG1F,  is  assigned  to  PBi.  The  pointer  PB2  is  reset  to  1 
and  the  transaction  transfers  to  CTRLO  to  begin  the  routing 
process  out  of  terminal  area. 
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Passenger  transactions  performing  the  gate  check-in 
operations  proceed  from  GATE 3  to  GATEl  when  they  enter  a 
QUEUE  block.  The  total  number  of  passengers  to  reach  gate 
counters,  represented  by  halfword  savevalue  GATXH ,  is 
incremented  by  PB13.  The  simulated  waiting  time  in  a  gate 
queue  is  recorded  in  PH11.  The  transaction  enters  the  PH 5 
storage,  simulates  the  service  time  by  an  ADVANCE  block 
then  leaves  the  PH5  storage. 

A  GATE  block  directs  transactions  to  GATE 2  unless  the 
flight  transaction  has  placed  the  logic  switch  PH5  in  a  SET 
position.  This  setting  operation  is  performed  at  the  start 
of  the  simulated  boarding  time.  Transactions  transferred  to 
GATE 2  increment  MHl(PHl,12)  by  PB13,  then  transfer  to  CTRLO 
for  subsequent  termination.  Those  transactions  arriving  at 
the  GATE  block  after  boarding  time  decrement  the  occupancy 
count  at  the  point  number  and  then  transfer  to  CTRLO  for 
termination. 

Flight  transactions  for  departing  flights  generated  in 
the  Deplaning  Passenger  Logic  Section  are  transferred  to 
GATE 9  to  simulate  the  boarding  process.  Each  flight  trans¬ 
action  is  generated  when  the  absolute  clock  time  is  one  hour 
before  the  scheduled  departure  time.  At  GATE 9 ,  the  transaction 
is  held  until  absolute  clock  time  equals  the  flight  time 
minus  a  boarding  interval,  BDTXH .  The  GPSS  storage  number  of 
the  gate  is  assigned  to  PH5  and  the  PH5  lo^ic  switch  is  placed 
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in  a  set  position,  allowing  passenger  transactions  executing 
the  LEAVE  block  at  GATE6  to  proceed  directly  to  CTRLO  for 
termination. 

The  flight  transaction  is  held  at  an  ADVANCE  block  until 
the  absolute  clock  equals  flight  time.  The  transaction 
then  resets  the  PH5  logic  switch  and  resets  MH1(PH1,12)  to 
zero,  allowing  this  element  to  record  the  numbers  of  simulated 
passengers  missing  the  flight.  The  flight  transaction  is 
then  terminated . 
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13.  Ground  Transportation  (Misc.) 

This  module  is  accessed  by  passenger  and  visitor  trans¬ 
actions.  Self- driver,  deplaning  passenger  transactions  are 
routed  to  GRTOO;  enplaning  passengers  proceed  to  GRT01 . 

Greeter  transactions  simulating  initial  entry  to  the  terminal 
area  proceed  to  GRT02 .  The  greeter  transaction  designated  to 
proceed  from  parking  to  curbside  after  matching  respective 
passenger  transactions  at  gate,  bag  claim,  security  or  lobby, 
transfer  to  GRT03 .  Well-wishers,  separated  from  the  passenger 
group  at  the  gate  or  security,  are  routed  to  GRTOO. 

Deplaning  passenger  transactions  routed  to  GRTOO  execute 
a  HELPA  call  to  FORTM.  For  this  transaction  type,  the  parking 
facility  number  assigned  in  GPSS  to  PB14  is  used  to  obtain 
other  parameter  values.  The  values  assigned  by  FORTM  are 
the  point  number  of  the  parking  facility  in  PH2 ,  the  storage 
number  in  PH 5 ,  the  landside  facility  number  in  PH7 ,  and  the 
value  10  in  PB11.  The  transaction  is  advanced  by  the  amount 
TRUXH ,  the  walking  time  from  the  last  facility  to  the  parking 
facility.  Following  this  delay,  the  transaction  transfers  to 
CTRL8  for  direct  routing  to  the  parking  garage  exit. 

Enplaning  passenger  transactions  entering  the  terminal 
area  for  parking  are  routed  to  GRTOl .  At  this  program  loca¬ 
tion,  a  HELPA  call  to  FORTM  is  executed  and  returns  with  the 
assignments  made  to  the  same  parameters  as  deplaning  passen¬ 
ger  transactions  at  GRTO. 
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Greeter  transactions  entering  the  terminal  area  for  en¬ 
trance  to  parking  facilities  are  routed  to  GRT02 .  At  this  block, 
and  the  three  following  blocks,  the  assignment  to  parameters 
and  incrementing  of  counts  are  exactly  the  same  as  those  of 
the  enplaning  passenger  at  the  subsection  starting  at  GRT01 . 

Greeter  transactions  assigned  to  remove  vehicles  from 
the  parking  facility  after  passenger  matching  for  proceeding 
to  curbside  are  routed  from  gate,  bagclaim,  security  or  lobby 
to  GRT03.  At  this  program  location  these  transactions 
execute  a  HELPA  call  to  FORTM.  All  parameter  assignments 
are  identical  to  those  described  for  transactions  entering 
GRTOO . 

After  return  from  FORTM,  an  ADVANCE  block  simulates 
the  walking  time  from  the  last  facility  to  the  parking 
facility.  The  greeter  transaction  then  simulates  a  vehicle 
and  enters  the  PH5  queue,  if  necessary,  at  the  parking  lot 
exit.  The  service  time  at  the  parking  facility  payment 
booth  is  simulated.  The  parking  lot  inventory  is  decremented 
by  1  and  the  count  of  vehicles  proceeding  from  parking  lot 
to  curbside  is  incremented  by  1.  The  car  is  routed  to  the 
Deplaning  Curb  Logic  Section  by  assigning  DCAR1  to  PH4  and 
transferring  the  transaction  to  CTRL1 . 
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14.  Parking  (Dept.  Pax-Cars) 

The  deplaning  passengers  transactions  previously  routed 
to  GRTOO  are  routed  to  PARKO,  the  first  program  location  of 
this  section.  At  this  point,  the  PH5  queue  is  entered  and 
the  time  of  entrance  is  recorded.  After  departing  the  queue 
to  enter  service  at  the  vehicle  parking  payment  booth,  the 
time  spent  queuing  is  recorded  in  PH11.  The  service  time 
at  the  booth  is  simulated,  then  the  vehicle  inventory  in 
the  facility  is  decremented  by  1  and  the  count  of  vehicles 
on  the  departing  road  is  incremented  by  1.  The  transaction 
is  transferred  to  CTRLO. 
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15.  Rent-A-Car 


Deplaning  passengers  transactions  selected  for  the  car 
rental  mode  are  transferred  to  RCARO  to  begin  the  simulation 
of  processing  performed  at  the  car  rental  counter.  Byte 
parameter  6  is  tested  for  a  value  3,  a  flag  designating 
usage  of  this  mode.  Transactions  not  utilizing  car  rental 
are  immediately  transferred  to  CTRLO.  Transactions  pro¬ 
ceeding  to  the  next  block  select  a  car  rental  agency  from  the 
selection  function  RCA2F  and  assign  the  agency  number  to  PB10 . 
A  HELPA  call  to  FORTM  determines  the  agency  counter  nearest 
to  the  facility  immediately  departed  by  the  passenger  trans¬ 
action.  FORTM  returns  with  the  point  number  of  this  counter- 
in  PH2,  the  storage  number  in  PH5,  the  landside  facility 
number  in  PH7  and  the  value  11  in  PB11.  The  walking  time 
from  the  last  point  to  the  car  rental  counter  is  simulated  by 
TRVXH .  The  transaction  enters  a  QUEUE  block,  and  subsequently 
the  PH 5  storage.  The  waiting  time  is  recorded  in  PHll  and 
the  processing  time  is  simulated  by  RCAlV.  This  transaction 
proceeds  to  CTRLO  for  further  processing. 

Deplaning  passenger  transactions  using  the  car  rental 
mode  are  assigned  to  RCAR9  by  the  ground  transportation 
selection  function  CTRlF.  These  simulate  passengers  who  have 
completed  processing  inside  the  terminal  building  and  are 
proceeding  to  a  location  to  obtain  the  vehicle.  This  logic 
assumes  that  the  passenger  picks  up  the  vehicle  at  an  agency 
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parking  facility. 

At  RCAR9,  a  HELPA  block  is  executed.  FORTM  determines 
the  number  of  the  agency  facility  and  returns  with  the  point 
number  of  this  facility  in  PH2,  the  storage  number  of  the 
facility  in  PH5 ,  the  landside  facility  number  in  PH7  and  the 
value  10  in  PB11.  The  travel  time  to  this  facility  is 
advanced.  The  transaction  then  increments  the  count  of 
vehicles  on  the  departing  road  by  1  and  transfers  to  CTRLO. 

Enplaning  passenger  transactions  arriving  at  the  airport 
landside  who  are  proceeding  to  return  rental  vehicles  are 
routed  to  RCAR8 .  The  HELPA  call  to  FORTM  returns  with  the 
same  assignments  as  for  transactions  using  RCAR9 .  The 
arriving  roadway  count,  ARDXH,  is  incremented  by  1,  then 
the  transaction  is  transferred  to  CTRLO. 
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16 .  Security 


All  transactions  simulating  entry  to  concourses  and  sub¬ 
sequent  movement  to  gate  facilities  pass  through  the  Security 
Module.  At  SECUO,  a  HELPA  call  is  made  to  determine  the 
security  facility  for  the  destination  gate.  FORTM  returns 
with  the  security  point  number  assigned  to  PH2,  the  storage 
number  in  PH5,  the  landside  facility  number  in  PH7  and  the 
value  three  in  PB12.  The  transactions  are  advanced  by  the 
travel  time  between  security  and  the  last  facility  used.  A 
test  comparing  PB5,  the  number  in  the  party,  with  PB13,  the 
number  of  passengers  in  the  party,  determines  if  the  trans¬ 
action  represents  any  simulated  well-wishers.  When  PB5 
equals  PB13  there  are  no  well-wishers,  and  the  trans¬ 
action  is  transferred  to  SECU3 .  When  PB5  does  not  equal 
PB13  well-wishers  are  present,  and  the  transaction  continues 
to  the  next  sequential  statement.  A  statistical  transfer  is 
made,  using  halfword  savevalue  WWXGH.  If  the  result  of  the 
statistical  transfer  requires  separation  of  well-wishers  and 
passengers  at  security,  the  transaction  goes  to  the  next 
sequential  block.  Otherwise  the  transaction  is  transferred 
to  SECU3.  At  the  next  sequential  block,  the  transaction  is 
split  once.  The  copy  transaction,  representing  well-wishers, 
is  transferred  to  the  third  sequential  block.  For  the  parent 
transaction,  PB5 ,  the  number  in  the  party,  is  made  equal  to 
PB13,  the  number  of  passengers  in  the  group,  thereby  removing 
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well-wishers  from  the  party  count.  The  passenger  transaction 
is  then  transferred  to  SECU3. 

The  well-wisher  transaction  removes  the  number  of 
passengers  in  PB5  by  subtracting  the  number  in  PB13  from  it, 
then  assigns  the  value  zero  to  PB13.  PBl  is  assigned  WWS1F, 
the  well-wisher  leaving  from  security  process  function.  The 
process  function  pointing  PB2  is  reset  to  1,  and  the  well- 
wisher  copy  transaction  is  transferred  to  CTRLO. 

At  SECU3,  the  PH2  halfword  savevalue,  representing 
occupancy  at  the  security  point,  is  increased  by  PB5 ,  the 
number  in  the  party.  At  SECU1  the  PH5  queue  is  entered  with 
an  entry  count  of  PB5 ,  then  the  transaction  is  marked  to 
record  waiting  time.  The  PH 5  storage  representing  security 
service  is  entered  and  the  waiting  time  is  added  to  PH11. 

At  SECU2  the  passenger  transaction  is  advanced  by  V$SEC1V, 
the  security  check  time. 

The  occupancy  count  at  the  point,  which  is  kept  in  the 
halfword  savevalue  whose  number  is  PH2 ,  is  decremented  by  PB5 , 
the  number  in  the  party.  The  matrix  savevalue,  MH12 CSECNN, 1) 
is  incremented  by  PB5.  This  matrix  is  the  count  of  simulated 
passengers  and  visitors  processed  through  the  security 
facility.  SECNN  is  the  number  of  the  security  facility. 
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17.  Concessions 


A  number  of  simulated  transfer  and  transit  passengers, 
selected  by  random  draw  in  the  Deplaning  Passenger  Logic, 
are  sent  to  their  section  to  spend  part  of  the  waiting  time 

9 

for  their  departing  flight. 

Concessions  are  located  in  the  lobby  and  on  the  con¬ 
courses,  and  the  routing  to  either  facility  is  also  specified 
during  the  selection  process.  Transactions  are  routed  to 
LOBCO  for  lobby  concessions  and  to  CONCO  for  concourse 
concessions.  Program  Logic  for  both  facilities  is  identical. 

At  LOBCO  or  CONCO  a  HELPA  FORTM  call  is  made,  with  a  flag 
set  for  lobby  or  concourse  concession,  respectively.  The 
FORTM  subprogram  calculates  the  travel  time  to  the  concession 
and  assigns  the  time  spent  at  concession  to  PH5 .  The  trans¬ 
action  is  advanced  by  TRUXH ,  the  travel  time  from  the  last 
facility.  The  savevalue  whose  number  is  the  same  as  the 
point  number  of  the  concession  is  increased  by  PB5,  the  number 
in  the  party.  The  transaction  is  next  advanced  by  PH5,  the 
simulated  time  spent  at  the  concession.  The  savevalue,  which 
keeps  a  count  of  the  congestion  at  their  point,  is  decremented 
by  PB5  to  indicate  the  transaction  has  left  the  concession, 
and  the  transaction  is  then  transferred  to  CTRLO. 


Transfer  Flights 

This  module  establishes  and  maintains  a  table  in  MH5 
containing  the  MH1  row  number  of  simulated  departing  flights 
able  to  accept  transfer  passenger  transactions.  The  variable 
TP AX  of  the  input  flight  schedule  specifies  the  initial 
number  of  transfer  passenger  transactions  accepted  by  the 
flight.  During  the  operation  of  the  simulation,  the  number 
of  transactions  is  decremented  by  the  transfer  passenger  logic 
in  FORTM.  Flights  are  added  to  or  deleted  from  the  MH5  table 
as  simulation  time  progresses.  If  an  insufficient  number  of 
transfer  passenger  transactions  were  assigned  to  the  flight 
prior  to  deletion  from  the  transfer  flight  table,  this 
module  generates  transactions  to  complete  the  assigned  number 
of  transfers. 

A  single  transaction  is  split  from  the  initial  trans¬ 
action  generated  by  the  Deplaning  Passenger  Logic  Section  and 
transferred  to  XFLTO .  At  XFLTO  the  domestic  transfer  process 
function,  TDPlF ,  is  assigned  to  PB1.  Byte  parameter  2,  the 
process  function  pointer;  is  assigned  a  value  2  to  place  these 
transfer  passengers  at  security;  Byte  parameters  5 ,  the  total 
number  in  this  passenger  groups;  and  13,  the  number  of  passengers 
in  the  group,  are  assigned  the  value  1.  A  HELPA  FORTM  call  is 
made,  with  a  zero  value  D-operand  used  as  a  flag,  to  initialize 
the  transfer  flight  table  in  MH5.  At  this  initial  pass,  FORTM 
arranges  the  MH1  row  numbers  of  simulated  departing  flights  accep¬ 
ting  transfer  passenger  transactions  in  MH5 , 
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in  chronological  order.  The  simulated  departure 
times  of  these  flights  must  be  between  30  minutes  and  2 
hours,  or  between  the  FORTRAN  input  limits  DELETE  and  ADD 
respectively,  after  the  simulation  start  time.  FORTM 
returns  with  the  MH1  row  number  of  the  first  flight  depar¬ 
ting  after  the  ADD  or  two  hour  time  limit  in  PHI.  If  the 
last  row  of  the  flight  table  matrix  was  reached  during  this 
initialization  process,  the  number  of  the  next  succeeding 
row  of  MH1  is  assigned  to  PHI. 

The  next  block  tests  MH1(PH1,  1)  for  a  value  less 
than  2ero.  If  the  end  of  the  flight  table  matrix  was  reached 
in  FORTM,  the  MHl  (PH1,1)  value  is  minus  1.  When  this  occurs, 
the  transaction  proceeds  to  the  next  block  to  determine  if  any 
flight  accepting  transfers  was  located  by  FORTM  with  subsequent 
placement  of  the  MHl  row  numbers  in  MH5.  The  MH5  (1,1)  element 
is  tested  for  a  zero  value  to  determine  if  an  MHl  row  number  is 
present.  When  MH5  (1,1)  is  zero,  the  transaction  is  terminated 
If  MH5 (1,1)  is  non-zero,  the  transaction  transfers  to  XFLT3 
to  delete  flight  numbers  from  the  transfer  flight  table  as 
simulated  time  progresses. 

When  the  returning  value  of  PHI  does  not  indicate  that 
the  last  row  of  MHl  was  reached,  the  transfer  flight  transaction 
transfers  to  a  SPLIT  block.  The  parent  transaction  proceeds 
to  the  next  succeeding  block  to  attempt  to  add  the  PHI  value 
to  the  MH5  flight  table.  The  copy  transaction  transfers  to 
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XFLT3  to  attempt  to  delete  the  MH5(1,1)  element. 

When  adding  the  current  PHI  and  subsequent  MH1  row  number 
values  to  MH5,  an  initial  test  is  made  of  MH1  (PHI, 11)  for  a  value 
greater  than  zero  to  determine  if  simulated  transfer  passengers 
were  input  for  the  flight.  The  transaction  proceeds  to  the 
next  block,  at  location  XFLTl,  when  MH1(PH1,11)  is  greater 
than  zero,  otherwise  it  is  transferred  to  XFLT2.  An  ADVANCE 
block  at  XFLTl  delays  movement  of  the  transaction  until 
absolute  clock  time  equals  flight  time  minus  the  ADD  time. 
Following  this  delay,  HELPA  FORTM  call  is  executed  with  a 
flag  value  of  2  to  implement  addition  to  PHI  to  the  MH5 
table.  Upon  return  from  FORTM,  PHI  is  incremented  by  1 
at  XFLT2  and  the  test  of  MHl(PHl,l)  for  the  end  of  the  table 
is  again  performed.  If  the  test  indicates  the  end  of  the 
table,  the  transaction  is  terminated,  otherwise  it  is  trans¬ 
ferred  to  XFLT5.  At  this  location,  the  Boolean  variable 
XFL1B  is  tested  to  determine  if  the  MHl  row  number  represents 
a  departing  flight  and  has  been  assigned  to  accept  transfer 
passenger  transactions.  When  XFL1B  is  true  the  transaction 
proceeds  to  the  next  block  for  transfer  back  to  XFLTl.  If  it  is 
false,  the  transaction  transfers  immediately  to  XFLT2. 

The  deletion  process  begins  at  program  location  XFLT3 . 

The  MH5 (1,1)  element  is  tested  for  a  value  greater  than  zero. 

If  transfer  flights  are  available,  as  indicated  by  a  non-zero 
value  of  MH5 (1,1)  the  value  of  this  element  is  assigned  to  PHI, 


otherwise  the  transaction  is  transferred  to  XFLT9.  After 
the  above  assignment  to  PHI  is  performed,  an  ADVANCE  block 
at  XFLT7  delays  the  transaction  until  the  absolute  clock 
time  equals  flight  time  minus  DELETE  time.  The  gate 
number  of  the  flight  is  assigned  from  MH1(PH1,9)  to  PH5 
and  flight  type  from  MH1(PH1,7)  to  PB3.  A  HELPA  call  to 
FORTM  with  a  flag  value  3  is  executed  to  determine 
the  point  number  of  the  ticket  counter  corresponding  to 
the  airline  number  in  MH1(PH1,3)  of  the  flight.  Transactions 
are  then  generated  to  create  remaining  transfer  passenger 
assignments  if  the  flight  was  not  filled  by  the  Deplaning 
Passenger  Logic  Section.  The  number  of  transactions  required 
to  fill  the  flight  is  contained  in  MH1(PH1,11).  A  SPLIT  block 
creates  these  transfer  passenger  transactions  and  transfers 
them  to  XFLT8  immediately  before  deletion  of  the  row  number 
from  MH5. 

A  HELPA  call  with  a  flag  value  of  1,  deletes  the  MH1  row 
number  contained  in  PHI  from  MH5.  Upon  return  from  FORTM,  the 
PHI  value  is  incremented  by  one  at  XFLT4 .  The  next  block, 
located  at  XFLT9,  tests  MH1(PH1,1)  for  a  negative  value  to 
determine  if  the  end  of  the  flight  schedule  matrix  has  been 
reached.  The  negative  value  terminates  the  transaction, 
otherwise  the  transaction  transfers  to  XFLT6. 
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At  XFLT6  the  Boolean  variable  XFL1B  is  again  tested. 

If  XFL1B  is  true  the  transaction  proceeds  to  the  next 
block  for  transfers  to  XFLT7.  If  false,  the  transaction 
transfers  to  XFLT4  to  increment  PHI. 

Transfer  passenger  transactions  routed  to  XFLT8  are 
advanced  a  random  delay  time  between  0  and  15  minutes  before 
proceeding  to  the  next  block.  After  this  delay,  they  transfer 
to  CTKLO  to  proceed  from  ticket  counter  point  to  security. 
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Change  Card  Reader 

A  single  transaction,  used  to  perforin  storage  capacity 
changes  is  generated,  with  a  priority  level  of  120.  At 
CHGOO,  this  transaction  performs  a  HELPA  call  to  FORTM. 

The  initial  call  by  this  transaction  reads  the  first  change 
card  and  assigns  the  time  difference  between  the  current 
clock  and  time  of  the  first  service  change  to  halfword 
save value  CHGXF. 

The  transaction  tests  the  halfword  savevalue  NSCXH, 
the  number  of  storage  changes  designated  by  the  CHANGE 
data  card,  for  a  value  greater  than  zero.  For  the  initial 
pass,  NSCXH  is  zero,  and  the  transaction  transfers  to  an 
ADVANCE  block.  When  the  clock  time  equals  the  change  time, 
the  transaction  proceeds  to  the  next  block  and  tests 
NSCXH  for  zero.  Again,  at  the  initial  pass  NSCXH  is  zero 
and  the  transaction  transfers  to  CHGOO. 

The  second  and  subsequent  HELPA  calls  to  FORTM  at 
CHGOO  assign  GPSS  storage  numbers  to  MH7(I+30,1).  Subscript 
I  refers  to  the  Ith  storage  designated  for  a  capacity  change 
on  the  CHANGE  input  data  card.  The  total  number  of  storage 
to  be  changed  is  assigned  to  NSCXH.  This  information  is 
transferred  from  the  data  card  read  on  the  previous  HELPA 
call.  Thus,  the  data  from  the  initial  FORTM  call  is  assigned 
on  the  second  call.  FORTM  then  reads  the  next  input  CHANGE 
card,  assigns  the  time  interval  between  the  current  time 
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and  the  next  change  to  CHGXF  and  returns  to  the  GPSS  main 
program. 


The  TEST  block  examines  NSCXH  for  a  value  greater 
than  zero  and  the  transaction  proceeds  to  the  next  block 
for  this  condition.  PHI  is  assigned  a  value  of  minus  1. 

The  transaction  is  then  split  NSCXH  times  and  each  copy 
transaction  is  sent  to  block  CHG01.  Sequence  numbers  of 
these  transactions  are  assigned  to  PHI.  When  the  transaction 
is  split,  the  value  of  PHI  is  incremented  by  1,  producing 
the  value  zero  in  PHI  of  the  parent  transaction  and  sequence 
numbers  beginning  with  1  in  PHI  of  the  copy  transactions. 
These  sequence  numbers  will  be  used  to  address  elements 
in  MH7 . 

The  parent  transaction  proceeds  to  the  next  block 
where  it  is  delayed  by  the  value  CHGXF.  This  block  is 
also  the  destination  of  the  transaction  if  NSCXH  is  zero 
before  the  splitting  process.  After  leaving  the  ADVANCE 
block,  a  TEST  block  holds  the  transaction  until  NSCXH  is 
decremented  to  zero  by  the  copy  transactions.  Thus,  if 
NSCXH  is  greater  than  zero,  matrix  MH7  is  still  used  by 
transactions  generated  by  the  previous  change,  and  the 
parent  transaction  is  held  at  the  TEST  block  until  MH7 
is  available.  The  parent  transaction  then  returns  to  CHGOO 
to  process  the  next  change. 

At  CHG01,  the  destination  of  the  sequenced  copy  trans¬ 
actions,  PH2  is  assigned  the  value  in  PHI.  The  halfword 
savevalue  SAVXH  is  assigned  the  value  of  the  sequence  number 
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in  PHI  in  order  to  save  the  pointer  to  the  MH7  row.  Half¬ 
word  parameter  2  has  the  value  30  added  to  its  current 
contents.  The  number  of  the  storage  to  be  changed  and  the 
storage  capacity  information  are  next  assigned  to  PHI  and 
PH2  respectively,  from  MH7 (PHI, 1)  and  MH7 (PHl+30,1) .  Using 
the  halfword  savevalue  SAVXH,  the  pointer  to  the  storage 
number  in  MH7,  the  MH7 (SAVXH, 1)  element,  is  reset  to  zero. 

The  capacity  information  element  at  MH7 (SAVXH+30 , 1)  is  also 
assigned  the  value  zero.  Halfword  savevalue  NSCXH  is  next 
decremented  by  one  to  indicate  that  the  number  of  transactions 
using  MH7  has  decreased  by  1.  When  the  new  capacity  of 
the  PHI  storage  equals  or  exceeds  the  current  contents,  PH2 
contains  the  value  zero.  PH2  is  tested  for  zero  and  the 
transaction  continues  to  the  next  block  for  this  condition. 
Because  the  remaining  capacity  of  the  PHI  storage  has  been 
reset  in  FORTM,  to  the  difference  between  the  new  capacity 
and  current  contents,  the  storage  may  change  status  from 
full  to  not  full.  Transactions  waiting  to  enter  a  storage 
which  was  full  before  the  FORTM  reset  are  on  a  delay  chain  not 
scanned  by  GPSS  until  a  transaction  in  that  storage  executes 
a  LEAVE  block.  In  order  to  activate  these  waiting  transac¬ 
tions  immediately,  the  transaction  performing  this  change 
will  attempt  to  enter  and  leave  the  storage.  A  GATE  SNF 
block  allows  the  transaction  to  enter  the  storage  if  it  is 
not  full.  It  will  then  execute  a  LEAVE  block  for  the  PHI 
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storage  and  be  terminated.  If  the  storage  is  full,  trans¬ 
actions  will  undergo  the  normal  wait,  and  the  changing 
transaction  will  be  terminated  immediately.  if  the  storage 
is  entered,  FORTM  adjusts  the  count  of  transactions  to 
discount  the  changing  transaction.  When  PH2  is  not  zero, 
the  new  storage  capacity  is  below  the  current  contents 
and  must  be  lowered.  The  TEST  block  transfers  the  trans¬ 
action  to  CHG02. 

At  the  block  labeled  CHG02,  the  location  that  the 
change  transaction  is  transferred  to  if  the  storage  capacity 
is  to  be  lowered  below  the  current  contents,  the  change 
transaction  is  held  at  a  GATE  SNF  block  until  another  trans¬ 
action  has  left  the  PHI  storage,  and  therefore  the  storage 
is  no  longer  full.  After  passing  the  GATE  block,  a  HELPA 
FORTM,  call  is  made  to  lower  the  storage  capacity  to  the 
current  contents.  If  the  new  capacity  specified  on  the 
data  card  equals  the  current  contents,  the  FORTRAN  program 
sets  a  halfword  savevalue  SLCXH,  used  as  a  flag,  to  1. 

The  value  one  is  SLCXH  is  next  tested  for  in  the  GPSS 
program.  If  SLCXH  is  1  the  storage  lowering  is  complete. 

The  flag  SLCXH  will  be  reset  to  zero  and  the  transaction  is 
terminated.  If  the  current  contents  exceed  the  new  capacity, 
the  number  of  available  units  of  storage  is  set  to  zero  and 
SLCXH  remains  zero.  Because  the  flag  SLCXH  is  not  set  to  1, 
more  lowering  of  the  storage  capacity  is  needed.  The  change 
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transaction  is  transferred  back  to  CHG02  to  wait  until 
another  transaction  leaves  the  storage. 
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Timer  Section 


A  single  transaction  with  priority  level  127  and  one 
halfword  parameter  is  generated  to  initiate  and,  subsequently, 
to  terminate  the  activity  of  the  Main  Program.  An  advance 
of  XH$CLKXH  is  done  to  define  CLKXH  as  a  halfword  savevalue. 
XH$CLKXH  has  the  value  zero  at  simulation  start,  and  con¬ 
sequently  no  actual  advance  of  the  simulation  time  is  done. 

The  clock  increment  savevalue,  INCXH,  is  set  to  60  to 
represent  60  seconds  of  simulation  time.  A  HELPC  call  to 
subroutine  CLINK  initiates  linking  of  this  program  and  the 
supporting  FORTRAN  subroutine  FORTM.  The  next  block  is  a 
HELPA  call  to  FORTM  which  completes  the  linking.  After 
execution  of  these  statements,  any  HELPA  call  to  FORTM 
appearing  in  the  Main  Program  will  operate  with  two  way 
communication  between  the  two  programs.  FORTM  also  reads 
the  input  data  and  places  the  information  in  GPSS  main  program 
matrices.  Any  errors  detected  by  FORTM  during  the  initaliza- 
tion  and  input  phase  are  indicated  by  setting  PHI  of  this 
transaction  to  a  value  greater  than  zero.  Upon  return  from 
FORTM,  PHI  is  tested  for  a  value  greater  than  zero.  For 
this  condition,  the  transaction  splits  repeatedly  and  goes 
to  a  TERMINATE  PHI  block  in  order  to  guarantee  termination. 

When  PHI  is  zero,  the  transaction  is  transferred  to  a 
SPLIT  block.  The  parent  transaction  is  held  at  a  GATE  LS 
block  to  piovide  a  method  of  terminating  activity  when  errors 
accumulated  by  FORTM  exceed  a  specified  number.  If  this 


A-l-108 


should  occur,  logic  switch  JOBLS  is  placed  in  a  set  condition 
and  this  transaction  proceeds  to  a  SPLIT  block  at  ST0P1. 
Repeated  copies  activate  a  TERMINATE  100  block  to  force 
simulation  termination. 

The  copy  gener-sied  before  the  GATE  LS  block  is  again 
split.  This  parent  is  advanced  by  the  variable  V$INC1V, 
which  is  one  less  than  XH$INCXH,  the  clock  increment  time. 

This  compensates  for  the  GPSS  simulation  starting  time  which 
is  1  instead  of  zero.  A  HELPA  call  to  FORTM  is  performed 
to  update  the  clock  time  in  the  FORTRAN  subprogram  by  the 
amount  INCXH.  The  clock  time,  CLKXH ,  is  kept  in  a  24-hour 
format  showing  hours  and  minutes.  After  an  advance  by  the 
clock  increment  XH$INCXH,  the  transaction  is  transferred 
back  to  the  HELPA  FORTM,  21  block  to  again  update  CLKXH.  This 
procedure  of  advancing  by  XH$ INCXH  and  then  making  a  HELPA 
FORTM,  21  call  is  continued  until  the  simulation  ends. 

Halfword  PHI  of  the  copy  transaction  is  assigned  the 
value  of  127  which  will  be  used  as  a  loop  counter.  The 
function  RANDF  is  used  to  place  a  random  number  between  zero 
and  1  in  the  matrix  element  ML1(1,PH1) .  PHI  is  then 
decremented  by  1  by  the  LOOP  block  and  the  next  location 
in  the  ML1  matrix  is  filled  with  a  random  number.  This 
process  is  continued  until  all  127  locations  in  ML1  are 
filled  with  random  numbers. 

The  priority  of  this  timer  transaction  is  set  to  126, 
which  is  1  less  than  the  priority  of  the  transaction 


updating  the  clock.  This  will  allow  the  clock  to  be  updated 
at  the  last  time  increment  before  the  run  is  terminated.  The 
timer  transaction  is  then  advanced  to  the  end  of  run  time, 
and  an  HELPA  FORTM, 20  call  provides  the  printing  of  FORTRAN 
formatted  summary  reports.  A  selected  list  of  the  regular 
GPSS  output  is  also  printed  out.  .  A  TERMINATE  block  with  an 
A-operand  of  1  causes  the  simulation  run  to  be  terminated. 

Another  single  transaction  is  generated  11,700  seconds  after 
the  simulation  has  started.  This  transaction  entry  block  is 
HELPA  FORTM, 22  to  print -out  flow  and  queue  length  information. 
The  transaction  is  then  advanced  by  300  seconds  and  transfers 
back  to  the  HELPA  FORTM, 22  block.  This  activity  is  continued 
for  the  rest  of  the  simulation  so  that  information  is 
printed  out  every  five  minutes  of  simulated  time. 

Another  GENERATE  block  generates  one  transaction  3  hours 
and  25  minutes  after  the  start  of  the  simulation.  This 
transaction  then  encounters  a  TERMINATE  1  block  and  stops 
the  simulation.  This  procedure  is  used  in  conjunction  with 
the  RESET  command  in  order  to  clear  out  the  simulation 
statistics  accumulated  during  the  start  up  time.  If  this 
feature  is  not  wanted  then  both  the  GENERATE  block  and  the 
RESET  block  should  be  commented  out. 
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The  final  GENERATE  block  produces  a  single  transaction 
which  increments  the  value  of  byte  savevalue  PXTBN  by  1. 

PXTBH  will  be  used  as  the  number  of  the  table  providing 
hourly  frequency  distributions  of  simulated  landside  waiting 
time.  The  time  is  advanced  one  hour  by  an  ADVANCE  block,  and 
the  transaction  is  transferred  back  to  the  block  that 


increments  byte  savevalue  PXTBN  by  1.  This  procedure  is 
continued  until  the  end  of  the  simulation. 
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Transfer  pax  waiting  time 


Transfer  pax  waiting  time  by  hour 


A-2-6 


DEPLANING  PASSENGER  LOGIC 


Generate  one  transaction 
for  deplaning  pax  logic 


Initialize  Process 
Function  Pointer 


Copy  to  transfer 
flight  logic 


Assure  that  transfer 
flight  table  gets  built 


Deplaning  pax  at  'GATE' 


Flight  Table  (MH1 ) 
row  subscript 


A  value  of  -1  in  MH1  (PH1,1> 
indicates  end  of  flight  table 


A-2-7 


Delay  to  1  hour  before 
scheduled  arrival 


Create  next  transaction 
for  flight  table 


Branch  for  arriving 
flights 


For  gate  logic  to  start 
boarding 


Type  of  flight; 
Domestic  -  1 
Commuter  *  2 
International*  3 


A- 2-8 


1 


Tests  for  domestic 
flight 


Deplaning  domestic 
route  function 


No.  of  BAGS  function-Domestic 
flight 


) 


Te»t  for  commuter  flight 


Deplaning  commuter  route 
function 


No.  of  Bags  Function-Commuter 
flight 


DEPL3 


%  of  greeters 
meeting  at 
curb 


Depianino  international 
route  function 


No.  of  Bags  Function- 
International  Flight 


Is  transaction  Sequence  No. 
GE  32000 


Reset  transaction  sequence  no 


%  of  parking 
greeters 
proceeding 
to  curb 


To  curb  with  greeters 
logic 


To  park  with 
greeters  logic 


To  curb  without 
greeters  logic 


A- 2-10 


Increment  random  number 
table  pointer 


Is  pointer  at  end  of  table 


Reset  pointer  to  one 


Subtract  no.  of  pax  from  total 


Increment  pointer 


Compute  no.  of  baas 


Increment  pointer 


Fall  through  for 
gate  meeting 


Meet  at  gate 


Set  Flag  for  meeting  at  gate 


Fall  through  if  no  bags 


Meet  in  lobby 


Meet  in  bag  claim 


Fall  through  if 
need  more  parties 


Reset  PB14  for  later  use 


No.  of  greeters 


Increment  transaction 
Counter 


Transaction  sequence  no. 


Advance  to  airport 


Mode  *  Curb 


No.  of  pax  to  be  met 


Fall  through  if  none 


Add  to  total  met 


Starting  point  in  random  number 
table 


will  go  to  curb 


Increment  random  number 
table  pointer 


Is  pointer  at  end  of  table 


Reset  pointer  to  1 


Subtract  no.  of  pax 
from  total 


Increment  pointer 


Compute  no.  of  bags 


Fall  through  if  need  more 
parties 


Reset  PB14  for  later  use 


Greeters  per  party; 

not  used  unless  recirculating 

and  parking 


Increment  transaction 
Counter 


Transaction  sequence  no. 


) 


Advance  deplaning  pax  to 
time  of  arrival 


Guard  'BAGS*  from  the 
simultaneous  arrival 
of  aircraft 


SPLIT 


Copy  to  transfer 
out-of-system 


Fall  through  if  no 
departing  flights  in 
transfer  table 


Add  transfer  pax  to 
holding  save  value 


Fall  through  if  no 
transfer  pax 


s.?hi,?:;*?314,4,3,?3s 


Short-stay/dif ferent  section 


Fall  through  if 
same  section 


Long-stay/same  section 


Long-stay/dif ferent  section 


Mark  as  transit 


No.  of  pax  in  party 


Total  no.  of  people  in  party 


Stagger  pax  off  aircraft 


Transfer  pax  section 
switch,  arriving  flight 


Select  a  process  fucntion 


A-2-24 


fall  through  if 
never  deplaned 


Mark  as  transfer-out-of-system 


No.  of  pax  in  party 


Total  no.  of  people  in  party 


Create  transfers 
out-of-system 


To  park  with 
greeters  logic 


To  curb  without 
greeters  logic 


To  park  without 
greaters  logic 


To  all  other  modes 


Assign  address  parameter 


For  following  assign  only 


No.  of  pax  in  modes 
other  than  curb/park 


1 


Fall  through  if  total 
less  than  or  equal  to  zero 


Adjust  last  party  size 


Transfer  out  of  loop 


another 


Total  no.  of  people  in  party 


Park  ground  transportation 
mode 


Increment  pointer 


Generate  no.  of  bags, 
maximum  random  no. 


Reset  PB14  for  later  use 


If  rent-a-car,  use  DDP1F 


Pall  through  if  no  bags 


Change  to  lobby  process 
function 


Mode  -  curb 


No.  of  parki  j  greeters 
proceeding  to  curb 


Mode  ■  park 


No.  of  pax  to  be  greeted 


Pall  through  if  none 


Starting  point  in  random 
number  table 


Increment  random  no.  pointer 


Prevent  pointer  from 
exceeding  127 


Reset  pointer 


No.  of  pax  in  party 


Adjust  last  party  sit* 


Fall  through  if  not 
international 


Fall  through  if  no  bags 


Change  to  lobby 
process  function 


Meet  at  ticketing 


Reset  PB14  for  later  use 


( 


I 


1 


Starting  point  in 
random  number  table 


Increment  random  number 
pointer 


Prevent  pointer  from 
exceeding  127 


Reset  pointer 


Pax  in  party 


Subtract  group  from  total 


Increment  random  number 
pointer 


Generate  no.  of  bags, 
maximum  random  no. 


A-2-35 


Adjust  last  party  size 


I 


Fall  through  if  not 
international 


Fall  through  if  no  bags 


Change  to  lobby 
process  function 


Reset  PB14  for  later 

use 


Total  in  party 


Increment  transaction  counter 


Transaction  sequence  no. 


Mode  »  park 


Mo.  of  pax  to  be  created 


Fall  through  if  none 


Startinq  point  in  random 
number  table 


PB4 


E 

TEST 


0 


Fall  through  if  no  bags 


Change  to  lobby  process 
function 


Stagger  pax  off 
aircraft 


Fall  through  if  not 
meeting  at  gate 


Try  to  unlink 
greeter 


Wait  for  information, 
from  greeter 


ASSIGN 


Add  greeters  to  party 


Pick  up  parking  lot  no 


Permit  next 
of  PASS  save  values 


I 


Will  go  to  DEP29 
when  unlinked 


wait  for  greeters 


I 


ENPLANING  PASSENGER  LOGIC 


TRANSFER  \  ^7  ENPL9 


First  transaction  on  JOBTAPE 
which  is  a  dummy,  is  sent  here 


Fall  through  if  transfer  from 
out  of  system 


Entrance  facility  for  out 
of  system  transfers 


Process  function  number 


Enplaning  domestic  pax 


Get  random  index  for  bao 
function 


No.  of  bags  -  domestic 


A-2-42 


1 

l.EIPIF,  PB  j 

Enplaning  international  pax 

ASSIGN  ^ 

; 

1 

10,VSSND2V,rB  | 

Get  random  index  for  bag  function 

r 

ASSIGN  ^ 

T 

J 

4,£N$IBAGF,PB  1 

No.  of  bag*  -  international 

■ 


Let  pax  pick  up 
information 


Branch  if  mode  is  curb 


No  one  in  party 


Route  to  greeter  leaving  parking 


will  go  to  BAGC3  when 
unlinked 


Make  greeter  wait  for 
passenqer 


A-2-46 


Congestion 


Branch  if  all  bags 
at  bag  claim 


Save  address  parameter 


Mark  pax  for  waiting  time 


Wait  for  bags 
(unlink  in  Baggage 
unloading  section) 


Add  waiting  time  to  PH11 


Congestion 


Fall  through  if  to  be 
greeted  at  bag  claim 


Try  to  unlink  greeter 


Allow  pax  to  execute  "BAGS 


Baggage  unloading  logic 


Aircraft  type 


Unload  time  friction 
(by  aircraft  type) 


LOGIC 


R 


IPL1G 


Allow  next  aircraft 
transaction  to  move  in 
deplaning  section 


Baggage  unloading  time 


Baggage  claim  index 
and  area  number 


Point  no.  of  baggage  claim 


Loop  counter 


Branch  if  all  bags 
unloaded 


Baa  unloading  time  at 
baggage  claim 


Bags  to  waiting  pax 


Loop  for  next  group  of 
bags 


Free  chain/switch  pair 


Mark  all  bags  at 
claim  area 


Let  pax  pick  up 
information 


Branch  if  mode  is  curb 


No  one  in  party 


Route  to  greeter  leavin 
parking 


I 


Will  go  to  CHE11  when 
unlinked 


Wait  for  oreeter 


CHEK6 


Branch  if  terminating 


Congestion 


Wait  for  free  server 


Mark  pax  for  waiting  time 


Service 


Add  waiting  time  to  PH11 


Branch  to  CHEK2  or 
CHEA3.  Set  in  FORTM 


A-2-55 


SAVEVALUE 


Immigration  process 
time 


Leave  service 


Congestion 


Count  of  pax  vs 
one  immigration 


A-2-60 


ADVANCE 

VSCUS1V 


Customs  process  time 


LEAVE 


SAVEVALUE 


1 


3 


PH2-,PB5,XH 


SAVEVALUE 

|  CSTM+ ,  PBI 3 ,  XH  J 


) 


Leave  service 


Congestion 


Count  of  pax 
using  customs 


CONCOURSE  EXIT  -  TERMINATING  PAX 


Location,  gate 


Walking  time  to 
concourse  from  gate 


No.  of  pax  leaving 
concourse 


Dummy  to  keep  function 
1  for  MNLINK  hoppy 


A-2-6^ 


DEPLANING  CURB  (CARS) 


Arrival  distribution  for  cars 


Count  of  vehicles  on  arriving 
road 


Count  of  vehicles  at 
deplaning  curb 


Fall  through  if  deplaning 


One  less  than  first 
deplaning  curb  storage  no. 


Save  curb  storage  no. 
minus  one 


One  less  than  first  double 
parking  storage  no.  for  deplaning 


If  circulatino  vehicle, 
transfer  to  DCARB 


If  circulating  vehicle 
skip  next  test 


If  storage  number  same  as 
destination  storage  number, 
go  to  DC  A  PA 


Increment  double  parkino 
storage  number 


Enter  queue  for  blocked 
lane 


Stop  traffic  if  double 
parking  and  no.  of  passing 
lanes  available  is  one 


Depart  queue  for  blocked  lane 


Fall  through  if  current  contents 
of  double  park  storaoe  is  zero 


!£ 


Set  no.  of  passing  lanes  to 
maximum  available 


Save  count 


Set  no.  of  passing  lanes  to 
one  less  than  maximum  available 


Save  count 


Save  time 


Delay  vehicle  according  to 
no.  of  lanes  available 


A- 2 -66 


Fall  through  if  deplaning 


If  circulating  vehicle  is 
at  last  deplaning  storage 
transfer  to  DCARA 


Move  to  next  deplaning 
storage 


If  circulating  vehicle 
is  at  last  enplaning 
storage,  transfer  to  DCARA 


Count  of  vehicles  on 
deplaning  curb 


For  time  limit  enforcement 


I 


. 

! 

i 


i 

i 


A-  2-67 


Branch  to  enter  curb  slot 


Branch  to  enter  double 
parking  slot 


Branch  to  enter  queue 
slot 


Send  to  recirculation  and 


Enter  Queue  slot 


To  assure  priority 
Cor  Dr-  slot 


0 


Gat  random  no. 


Link  on  quaue  in 
random  order 


Leave  double  parking 
storage 


Unlink  one  from 
corresponding  queue  chain 


Change  PH6  to  curb 
storage  no. 


Now  at  curb 


Drop  to  normal  priority 


A-2-69 


Enter  curb  storage 


Get  random  no. 


Relink  in  random  order 


Branch  if  vehicle  unlinked 
is  enplaning 


Leave  queue  storage 


Change  PH6  to  Double 
parking  storage  no. 


Now  using  double  parking 


Set  double  parkinq  priority 


Unlink  any  vehicles  which  have 
been  double-parked  longer  than 
limit. 


No.  of  deplaning  curbs 


Add  no.  of  deplaning  curbs 


First  queue  chain 


Unlink  any  vehicles  in  queue 
longer  than  limit 


Increment  curb  or  double 
parking  storage  no. 


Check  next  curb  or  double 
parking  storage 


Unlink  one  from  corresponding 
queue  chain 


7 


Double  or  queue  storage 


Drop  to  normal  priority 


If  enplaning,  fall  through 


Add  waiting  time  to  PH11 


Branch  if  unlinked 
vehicle  is  enplaning 


Recirculate 


DEPLANING  CURB  (PAX) 


Location,  facility  type, 
MH9  row,  MH1  row 


Walking  time  to  deplaning 
curb 


Branch  by  transportation 
mode 


Match  pax  with  car 


Branch  if  match 
successful 


Match  with  greeter 


Branch  if  match 
successful 


wait  for  car  location 
information 


Pickup 


Car  location  information 


Reset  logic  switch 


Loading  time 


Fall  through  if  leaving 
curb 


Indirect  addressing  using 
variable 


Mark  pax  for  waiting  time 


Random  pullout  delay 


Add  waiting  tine  to  PH11 


Unlink  1  from  chain  with 
PH6  equal  to  corresponding 
double  part  storage 


Unlink  one  fron 
corresponding  queue  chain 


Count  of  vehicles  on 
departing  road 


A-2-76 


2 


Set  address  parameter 


Pax  waiting  for  cars 


PGSS  car  location 


Info  to  passenger 
transaction 


Let  next  car  pick  up 
information 


A-2-77 
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MICROCOPY  RISOIU1ION  USI  CHARI 

NAT  li  >N  At  Ml  Ik*  All  MAN|:AWj>.  *  •-*«> '  A 


BUS/LIMO  -  PAX 


TAXI 


BUS/LIMO- VEHICLE 


Count  of  vehicle  on 
arriving  road 


Remove  pax  waiting 
for  bus/limo 


Count  cf  vehicles  on 
departing  road 


A-2-78 


Pick  up  parking  lot 
number 


Permit  next  use  of 
PASS  savevalue 


Change  mode  to 
parking 


Process  function 
pointer 


New  process  function 


80 


Increment  enplanning  storage  no 


If  circulating  vehicle, 
skip  next  test 


Is  enplanning  storage  no. 
same  as  destination  storage  no 


Increment  enplaning  curb 
storage  no. 


Increment  enplaning  double 
parking  storage  no. 


l  PH4  I  Enter  queue  for  blocked  lane 


Mark  pax  for  waiting  time 


Stop  traffic  if  double  parking 
and  no.  of  passing  lanes 
available  is  one. 


Add  waiting  time  to  PH11 


Leave  queue  for  blocked  lane 


If  current  contents  of  double 
parking  storage  is  fall  through 
through 


Set  no.  of  passing  lanes  to 
maximum  available. 


Save  count 


I 


Set  no.  of  passing  lanes  to 
one  less  than  maximum  available 


Save  Count 


Save  time 


Hark  pax  for  waiting  time 


Delay  vehicle  according 
to  no.  of  lanes  available 


Add  waiting  time  to  PH11 


If  calculating  vehicle  is 
at  last  enplaning  curb 
storage,  transfer  to  ENPC1 


Move  to  next  enplaning 
storage  no. 


Count  of  vehicles  on 
enplaning  curb 


For  time  limit  enforcement 


Branch  to  enter  curb  slot 


Branch  to  enter  double  parking 
slot 


Branch  to  enter  queue  slot 


Sent  to  recirculation  road 


To  assure  priority  for 
double  parking  slot 


Gat  random  number 


Mark  pax  for  waiting  time 


Link  on  queue  in  random  order 


Branch  if  vehicle  unlinked 
ia  deplaning 


Add  waiting  time  to  PH11 


Leave  queue  storage 


Change  PH6  to  curb  storage  no 


Using  curb 


Fall  through  if  storage 
filled 


Change  PH6  to  double 
parking  storage 


Using  double  parking 


Double  parking  priority 


Enplaning  curb  unload  time 
car/taxi 


Fall  through  if  preticketed 


Fall  through  if  using  curb 
side  check-in 


Curb  side  check-in  time 


Empty  car  parking  time 


Fall  through  if  leaving  curb 


Indirect  addressing  using  variable 


Random  pullout  delay 


Curb  storage 


Unlink  one  from  queue 


] 


\ 

j 


j 


i 


A-2-89 


A-2-90 


Double  parking  itorage 


Unlink  one  from  queue 


Count  of  vehicles  on  departing 
road 


Fall  through  if  no  well-wishers 


Location,  mode,  enplaning, 
rero.  Lot  no.  only 


Vehicle  to  lot 


Enter  car  in  parking  lot 


SAVEVALUE 


Vehicle  count  in  perking  lot 


BUS/LIMO  (VEHICLE) 

EMPC6 


C  SAVEVALUE  J 

Tardxh*,i.xh| 


ADVANCE 

VSENP2V 


^  EBUSC  1 
f  ctrliA  <« 


AU 

w 


UNLINK 


f  SAVEVALUE  J 

IdpdjSTTiTxh  T 

X 

[  TERMINATE 


Count  of  vehicles  on 
arriving  road 


Bus/Limo  load  time 


Bus  leaves  curbside 


Count  of  vehicles  on 
departing  road 


RECIRCULATION  ROAD 


CIRC0 


Recirculate 


Include  recirculation  in 
deplaning  curb  counts 


Recirculation  to  deplaning 


A- 2-9 2 


Branch  N  greater 
who  has  all  ready  met 


Fall  through  to  enter  park 
or  branch  to  deplaning  road 


Change  mode  to  parking 


Process  function  to  curb 


GATE  (ENPLANING  PAX) 


Location,  gate 


Walking  tima  to  gate 


Pall  through  if  no  pax 


Natch  with  pax 


Only  one  at  a  time 


Number  of  greeters 


Parking  lot  number 


Let  pax  park  up 
information 


A-2-97 


Branch  H  mod*  1*  curb 


No  one  in  party 


Rate  to  greeter  leaving  parking 


Will  go  to  GATE  when  unlinked 


Wait  to  meet  greeter 


Fall  through  if  have  well- 
wishers. 


Split  well-wishers  off 


Drop  well-wishers 


Subtract  at  Pax 


Set  pax  to  zero 


Well-wishers  leaving  from 
gate  process  function 


Process  function  pointer 


TRANSFER 


DEPLANING  PAX-SELF 


GROUND  TRANSPORTATION  (MISC) 


A-2-104 


Parking  lot  service  tine 


Exit  car  from  parking  lot 


Parking  to  curb  recirculation 


Route  to  deplaning  curb 


Service 


Mark  pax  for 
waiting  time 


I 


Add  waiting  time 
to  PH  11 


Parking  exit 
service  time 


Exit  car  from 
parking  lot 


Count  of  vehicle  on 
departing  road 


If  current  location  is 
point  zero,  print  current 
events  chain 


Location,  gate 


Walking  time  to  security 


Fall  through  if  have 
well-wishers 


Fall  through  if  leaving 
well-wisher  at  security 


Split  well-wishers  off 


Drop  well-wishers 


Subtract  out  pax 


Sat  pax  to  f 


Well-wisher  laaving 
from  aacurity  pro- 
casa  function 


Process  function 
pointar 


I 


Congestion 


Passenger  count 
at  security 


I  ASSIGN  1 

_L_ 


SECU2 


ADVANCE 

VSSEC1V 


I 


LEAVE 


TphT/ 


SAVEVALUE 


PH2- ,  PBS ,  XH 


? 


MSAVEVALUE 


3 


Add  waiting  time 
to  PH11 


Security  check  time 


Service 


Congestion 


No.  of  pax  leaving 
security 


12* , VSSECNN , 1 , PB5 , MH 


CONCESSIONS 


Location,  flight, 
random  no.,  clock, 
switch 


Walking  time  to 
lobby  concession 


Congestion 


Waste  time  at 
concession 


Congestion 


Location,  flight, 
random  no.,  clock, 
switch 


Walking  time  to 
concourse  concession 


Congestion 


A-2-115 


XFLT0 


MHl (PHI. 1) 


MH5 (lil) 


TRANSFER  FLIGHTS 


Assign  process 
function 


Set  pointer 


Pax  in  party 


Total  in  party 


Initialize  transfer 
flight  table,  MH5 


Fall  through  if  at 
end  of  flight  table 


Fall  through  if  no 
transfer  flights 


A-2-117 


A-2-118 


Create  remaining 
transfer  pax 


Delete  flight  from 
table 


Increment  MHl  row  no. 


Test  for  end  of 
table 


Branch  if  arriving 
flight  or  no 
transfer  pax 


) 


Stagger  pax  to 
security 


ERROR  CHAIN 


Collects  transactions 
causing  selected  errors 
PH4  will  normally  give 
clue  to  nature  of 
problem 


ERROR 


r\ 


r  \ 

LINK 

ERROR 
riro  1 

Perforn  previous 
change  card  and 
read  next  change  card 


If  no  storage 
changes,  do  not 
split 


Parent  PHI  set  to  -1 


Split  1  transaction 
to  change  each 
storage  sequenced 
in  PHI 


Wait  until  next 
change 


If  wait  was  9,  wait 
till  MH7  used 


Count  down  of 
transaction*  using 
MH7 


Pall  through  if 
no  lowering  nasdad 


If  naw  capacity 
higher.. . 


Allow  transactions 
waiting  on  delay 
chain  to  start 
moving 


Wait  until  saaaona 
leaves 


Push  storage 
capacity  down  to 
current  contents 


TIMER  -  INITIAL  FORTRAN  CALL 


Initial  call  to 
FORTRAN  Help  block 
to:  read  flight 
schedule  and  geometry 
data,  initialize 
matrix  base  address, 
execute  CLINK  and 
MNLINK. 


PHI 


STOP* 

SPLIT 

W] 

1 

i 

03 


Needed  to  define 
"CLKXH"  halfword 


Set  "clock” 
increment 


Initiate  FORTRAN- 
GPSS  linking 


Complete  linking  and 
read  in  input  data 


Was  error  detected 
in  FORTM  program 


Stop  simulation 


A-2-126 


A-2-128 


Halfword  matrices, 
7  to  11 


Clock  time 


Block  counts  ' 


Storage  statistics 


Queue  statistics 


I 


User  chain 
statistics 


Table  statistics 


Full word  savevalues 


Halfword  savevalues 


Byte  savevalues 


Floating  point 
savevalues 


Logic  switches 


1 


A-2-132 


APPENDIX  A- 3 


PROGRAM  LISTING 


A-3-1/A-3-2 


auxiliary  program 


THIS  PROGRAM  generates  TRANSACTIONS  REPRESENTING  ENPLANING 
passenger  groups,  these  transaction  are  stored  ON  A  ' JOBTAPE1. 
RMULT  ...743.31.743,31 

SIMULATE  3 
LOAO  FORTH 

UNLIST  ABS  .USED  TO  LIST  THE  PROGRAM 


CLKXH  EOU 
CMHOI  SYN 
CMH04  SYN 
CML02  SYN 


CLOCK  -  USED  IN  MAIN  MOOEL 
NUMBER  OF  COLUMNS  OF  MATRIX  MH1 
NUMBER  OF  COLUMNS  OF  MATRIX  MH4 
NUMBER  OF  COLUMNS  OF  MATRIX  ML2 


HALFWORD  MATRICES 

MATRIX  MH.340.16  FLIGHT  SCHEDULE 
1  ROW  PER  FLIGHT  PLUS  1  ROW  TO  TERMINATE  DEPL  PAX  GENERATION 
(PAX  XAC  PHI  POINTS  TO  NH1  ROW) 

COL  1  -  ARRIVING  OR  DEPARTING  FLIGHT  (0  OR  1  ,•  -1 - -  END  OF  TABLE) 

2  -  FLIGHT  NO 

3  -  AIR  LINE 

4  -  SCHEDULED  ARRIVAL/OEPARTURE  TIME 

5  -  DELP.  PAX  BEING  ME  1  BY  PRIVATE  CAR 

6  -  TIME  FROM  START  (MINUTES) 

7  -  DOMEST IC,  COMMUTER  OR  INTERNATIONAL  FLT  (1,2.3) 

8  -  AIRCRAFT  TYPE 

9  -  GATE  NO 

10  -  originating/terminating  passengers 

11  -  TRANSFER  passengers 

12  -  BAG  CLAIM  AREA  (ARV  FLT) 

-  PAX  WAITING  AT  LOUNGE  TO  BOARD  (DEPT  FLT) 

13  -  TRANSIT  PASSENGERS 

14  -  TOTAL  TERMINATING  BAGS  (ARV  FLT) 

15  -  TOTAL  TRANSFER  BAGS  (ARV  FLT) 

16  -  TRANSFERS  OUT  OF  SYSTEM 


MATRIX  MH ,3,2 
ROW  1  -  DOMESTIC 

2  -  COMMUTER 

3  -  international 


PERCENT  ENPLANING  PAX  TICKETED 
COL  1  X  PRETICKETEO 

2  X  PRETICKETED  THAT  GO  DIRECT 
TO  SECURITY 


FLOATING  MATRICES 


MATRIX  ML. 3, 10  GROUND  TRANSACT 
ROW  1  -  DOMESTIC 

2  -  COMMUTER 

3  -  INTERNATIONAL 

COL  1  -  PRIVATE  CAR  (PICKUP,  DROP  OFF) 

J  -  DRIVES  SELF  (PARKING) 

3  -  RENTAL  CAR 

4  -  BUS/LIMOUSINE 

9  -  TAX!  ••  1.0  •• 

•  -  10  ••SPARE** 


GROUND  TRANSACTION  MODAL  CHOICE  X 


PERCENTAGE 
CUM  PCT  -  PRIVATE 
CUM  PCT  -  PRIVATE 
CUM  PCT  -  PRIVATE 
CUM  PCT  -  PRIVATE 


00002100 
00002200 
00002200 
00002*00 
00002500 
00002100 
00002POO 
00003P00 
00004000 
00005C00 
00006000 
00007000 
00009000 
00009000 
00010000 
00011000 
00012000 
00013000 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023P00 
00024000 
00025000 
00026000 
00027000 
00028000 
00029 000 
00030000 
00031000 
00032000 
00033000 
0C034P00 
00035*00 
0003G000 
00037000 
00039000 
00039O00 
00040O00 
00041 000 
0CC42P00 
00043000 
QC044C00 
0C045P00 
00040000 
00047000 
ooo48roo 
00049000 
00050000 
00051000 
00052000 
00053000 
00054000 


*  FUNCTIONS 

• 

ARV1F  FUNCTION  RN7.C6  AftRV  TIME  PRIOR  TO  FLT  (0905-0400) 

0. ,0/. 1 15, 31 80/. 38. 51 60/. 68, 6360/. 90 .7440/1 .0.8400 
ARV2F  FUNCTION  RN7.C6  AftRV  TIME  PRIOR  TO  FI.T  (0405-0900) 

0. .0/. 02, 720/. 16, 1680/. 425. 2760/. 93, 4080/1 .0,4500 
T0S1F  FUNCTION  RN7.C2  AftRV  TIME  (TRANSFERS  FROM  OUT  OF  SYSTEM) 
0. ,0/1 .0, (200 

PPPEF  FUNCTION  RN7.06  PAX/PARTY  ENPLANING 

0.32,1/0.71 ,2/0.91 ,3/0.97.4/0.99,5/1 .0,6 
WWPPF  FUNCTION  RN6.04  WELL-WI SHERS/PARTY  ENPLANING 

0.9,0/0.96.1/0.99,2/1.0.3 

• 

•  VARIABLES 


00055000 

00056C00 

00057000 

00059000 

00059000 

00C60000 

00061000 

0C062000 

00063000 

00054000 

00C65000 

00066000 

00067000 

00059000 

00069000 


00C79000 

FLT1V  VARIABLE  60*MH1 ( PHI , 6 ) -8700-300  DELAY  TO  150  MIN.  BEFORE  DEPT  00971^00 
FLT2V  VARIABLE  60»MH1 (PHI , 6 ) -4800-300  DELAY  TO  85  MIN.  BEFORE  OEPT  00072000 
T0S1V  VARIABLE  60-MH1 (PHI .61-2400  DELAY  TO  40  MIN.  BEFORE  DEPT  00073000 
T0S2V  VARIABLE  MH1 (PHI . 1 6 )- 1  CREA TE  T . 0 . 0. S .  TRANSACTIONS  00074000 


passenger  transaction  parameters 

HALFWORD:  1  -  FLIGHT  TABLE  ROW  NUMBER 

2  -  LOCATION  (POINT  NUMBER) 

3  -  MAX.  BAC  RANDOM  NUMBER 

PAX  STORAGE  NO  IN  CEPLANING  CURB  LOGIC 

4  -  ADDRESS  PARAMETER 
5-**  SCRATCH** 

6  -  USER  CHAIN  FOR  8AG  CLAIM  (DEPL-  PAX  ONLY) 

CAR  STORAGE  NO  IN  OEPLANING  CURB  LOGIC 

7  -  MH3  ROW  FOR  LAST  FACILITY 

(NOT  IMPLEMENTED  IN  EXIT  LOGIC) 

8-  *»  SCRATCH** 

FORI M  USES  AS  RETURN  FOR  ADDR  IN  XFER  PAX  LOGIC 

9  -  CUMULATIVE  WALKING  TIME 

10  -  TRANSACTION  SEQUENCE  NUMBER  FOR  PASSENGER 

AND  GREETER  MATCHING 

11  -  CUMULATIVE  PASSENGER  WAITING  TIME 

BYTE!  1  -  PROCESS  FUNCTION  NUMBER 

2  -  PROCESS  FUNCTION  POINTER 

3  -  TYPE  OF  FLIGHT  (1«00M,  2*C0M,  3»INT) 

4  -  NUMRER  OF  BAGS 

5  -  NUMBER  IN  PARTY  (VISITORS  ♦  SELF) 

6  -  MODE  CIF  GROUNO  TRANSPORTATION 

(SEE  MATRIX  ML2  FOR  COOES) 

7  -  0*DEPLANING.  1»ENPLANING 

8  -  1  »  TERMINATING,  2  *  TRANSFER 

3  *  TRANSIT,  4  *  TRANSFER  OUT  OF  SYSTEM 

9  -  BAG  CLAIM  AREA  LOG  SWITCH  (UEPL.  PAX  ONLY) 

-  0  *  TICKETED,  1  *  NOT  (ENPL.  PAX  ONLY) 

10  -  USED  IN  DEPLANING  FOR  BAG  FUNCTION 

-  RENTACAR  AGENCY 

11  -  CURRENT  PROCESS  CODE 

13  -  PAX  IN  PARTY 

14  -  PARKING  LOT  NUMBER 

ENPLANING  PASSENGER  CREATION 
,  .  ,1 , 10, 1 1PH, 14PB 

2.1.PB  INZT  PROCESS  FN  POINTER 


00075C00 

00076000 

00077r00 

00078000 

00079000 

oooaocoo 

0008  I  COO 
00082000 
00083000 
00084000 
00085000 
00086000 
00087000 
00098000 
0009 JOPO 
00090000 
00090(00 
00090000 
00090000 
0009 1 '00 
00092000 
00093000 
00094000 
00095000 
00096000 
00097000 
00099000 
00099000 
00100000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00109000 
001 10C00 
001 1 1000 
00112000 


GENERATE 

ASSIGN 


INZT  PROCESS  FN  POINTER 


ASSIGN 

7,1 ,PB 

ENPLO  ASSIGN 

1+.1 ,PH 

TEST  L 

MH1 (PHI , 1 ) ,0 , *+2 

TERMINATE 

TEST  E 

MH1 (PHI . 1 ) ,1  .ENPLO 

SPLIT 

1 .ENPLO 

ASSIGN 

3.MH1 (PHI ,7)  ,P8 

ASSIGN 

5.MH1 (PHI ,9) , PH 

SPLIT 

1  ,  ENPL3 

TEST  LE 

MH1  (PHI  .16)  ,  0  ,  *4-2 

TERMINATE 

ASSIGN 

8,4, PB 

ASSIGN 

13.1 ,PB 

ASSIGN 

5, 1 .PB 

ADVANCE 

VST0S1  V 

SPLIT 

VST0S2V , *+1 

ADVANCE 

FNST0S1F 

transfer 

.WRITE 

ENPL3  TEST  E 

MH1 (PHI ,10) , 0, *+2 

MSAVEVALUE 

1 , PHI ,10,1 , MH 

TEST  L 

MH1 (PHI ,4) ,905 ,ENPL1 

AOVANCE 

VSFLT2V 

ASSIGN 

8.MH1 (PHI ,10) ,PH 

ASSIGN 

13.FNSPPPEF.PB 

ASSIGN 

8-.PB13.PH 

TEST  LE 

PH8.0, *45 

ASSIGN 

13+.PH8.PB 

TEST  LE 

PB1 3,0, *+2 

ASSIGN 

13,1 , PB 

TRANSFER 

.  **2 

SPLIT 

1  .—7 

AOVANCE 

FNSARV2F 

TRANSFER 

, ENPL2 

ENPL1  ADVANCE 

vsfltiv 

ASSIGN 

8.MH1 (PHI ,10), PH 

ASSIGN 

13.FNSPPPEF.PB 

ASSIGN 

0-.P813.PH 

TEST  LE 

PH8.0, «+5 

ASSIGN 

13+.PH8.PB 

TEST  LE 

PB1 3,0, •♦2 

ASSIGN 

13, 1 ,PB 

TRANSFER 

,  *♦2 

SPLIT 

1  .*-7 

ADVANCE 

FNSARV1 F 

ENPL2  HELPA 

FORTM, 5 , RN4 , RN6. PB3 

ASSIGN 

5.PB13.PB 

TEST  LE 

PB6 , 2 , *+2 

ASSIGN 

5+, FNSWWPPF, PB 

WRITE  WRITE 

J0BTA1 

TERMINATE 

•  CREATE 

DUMMY  X  A  C 

• 

GENERATE 

, . ,1 ,127,1  PH 

HELPC 

CLINK, 1 

HELPA 

FORTM, 1 ,1 

TEST  G 

PHI  ,0,  *-*2 

TERMINATE 

PHI 

SPLIT 

1 .WRITE 

AOVANCE 

100000 

SPLIT 

1  .WRITE 

MARK  AS  ENPLANING  PAX 

FLT  TABLE  ( MH1 )  ROW  SUBSCRIPT 

MH 1 ( PHI ,1 )  *— 1  — >  TABLE  END  ( *+2 

SKIP  ARRIVING  FLIGHTS 

TYPE  FLT  (1,2,3  *  OOM.COM, INT) 
GATE  NO 

TO  ORIGINATING  PAX  LOGIC 

FT  IF  NO  T.O.O.S.  (•+2) 

MARK  AS  TRANSFER-CUT-OF-SYSTEM 
ALL  TRANSFERS  SINGLE  PAX 
...WITH  NO  VISITORS 
DELAY  TO  40  MIN*  BEFOR  DEPT 

(*+D 

WRITE  ON  JOBTAPE 
CHECK  FOR  PAX 
IF  PAX*0  SET* 1 

0405-0904  DEPARTURES 
ORIGINATING  PAX 
#  OF  PAX  IN  PARTY 
SUBTRACT  FROM  TOTAL 
FT  IF  TOTAL  <*  0 
ADJUST  LAST  PARTY  SIZE 
FT  IF  PB1 3  LE  ZERO 
SET  PB13  TO  ONE 

OUT  OF  LOOP  (*+2) 

GO  BACK  TO  CREATE  ANOTHER  (*-7) 
ARRV  TIME  PRIOR  TO  FLIGHT 

0905-0400  DEPARTURES 
ORIGINATING  PAX 
»  OF  PAX  IN  PARTY 
SUBTRACT  FROM  TOTAL 
FT  IF  TOTAL  <*  0 
ADJUST  LAST  PARTY  SIZE 
FT  IF  PB1 3  LE  ZERO 
SET  PB1 3  TO  ONE 

OUT  OF  LOOP  (*♦2) 

GO  BACK  TO  CREATE  ANOTHER  (*-7) 


NO  WELL-WISHERS 

FT  IF  CURB  OR  PARK  (•♦2) 

AOD  IN  WELL-WISHERS 


FOR  JOBTAPE 


SET  UP  2  WAY  COMMUNICATION 
READ  INPUT  OATA 
CHECK  FOR  ERRORS 


PREVENT  JOBTAPE  ENO  MESSAGE 


001 13C00 
00114000 
>00115000 
00116000 
00117000 
00118000 
00119000 
00120000 
00121000 
00122000 
00123000 
00124000 
00125000 
00126000 
00127000 
001 28000 
00129000 
00130000 
00131000 
00131100 
00131300 
00132000 
00133000 
00134000 
00135000- 
00136C00 
00137000 
00137100 
00137200 
00138000 
00139000 
00140000 
00141000 
00142000 
00143000 
00144000 
00145000 
00146C00 
00147000 
00147100 
00147200 
00148000 
00149000 
00150000 
00151000 
00152000 
00153000 
00154000 
00155000 
00156000 
00157C00 
00158000 
00159000 
00160000 
00161000 
00162000 
00163000 
00164000 
00165000 
00166000 
00167000 


A-3-5 


ADVANCE  1 
TERMINATE  1 


W 


WAIT  FOR  ABOVE  XAC  TO  BE  WRITTEN  00*68000 

00*65000 


•  00170000 

1  FUNCTION  PH1.L4  MNEMONIC  LINK  FUNCTION  -  SEE  FORTRAN  CALL  00*7*000 

,CMH01/.CMH04/,CML02/,CLKXH  00*72000 


noxref 

00172000 

START 

1...1 

00173000 

NOXREF 

USED  TO  CROSS  REF.  ITEMS 

00*  73040 

REPORT 

00*73050 

HMS 

TITLE 

1, FLIGHT  SCHECULE 

00173*00 

HMS 

title 

4 , XENPLANING  PAX  TICKETED 

00*73200 

LMS 

TITLE 

2, GROUND  TRANSACTION  MOOAL  CHOICE  % 

00173200 

* 

OUTPUT 

REMOVE  •  TO  PROVIOE  ALL  STATICS 

00*73*00 

ENO 

00174000 

0.468, 

1/0.833,2/0. 

917,3/0.967,4/0.987,5/1.0,8 

00278000 

ASSIGN 

1 .0DP1F.PB 

00656100 

ASSIGN 

1 .D0P1F.PB 

00G87100 

A-3-6 


REALLOCATE  HMS,13.BLO,980,FAC ,0,QUE,212,TAB. 14, FUN, 63 . VAR, 67 
REALLOCATE  FSV , 35 , CHA , 80 . FMS . 0 . LMS . 2 , STO , 2 1 2 . LOG , 1 85 , BMS , 0 
REALLOCATE  LSV , 1 0 , BSV , 1 0 ,HSV , 1 70 . BVR , 1 1 , XAC , 3600 . COM, 220000 


MAIN  PROGRAM 


00001C00 

00002000 

00003000 

00003010 

00003020 

00003030 

00003040 


•  «< 

00003050 

THIS 

PROGRAM  ENACTS  THE  MOVEMENT  OF  PASSENGERS  AND  VISTORS 

00003C60 

THOUGH 

THE  TERMINAL  AREA.  THIS  PROGRAM  GENERATES  DEPLANING  PAS- 

00003C70 

SENGER. 

MERGING  THEM  WITH  THE 

ENPLANING  PASSENGER  FROM  THE  AUX- 

00003C80 

I  LI  I ARY 

PROGRAM.  THE  FLCW  OF 

PASSENGER  ANO  VISTCRS  IS  MODEL 

000C3C90 

THROUGH 

A 

SEQUENCE  OF  SIMULATED  LANDSIDE  PROCESSING  FACILITES. 

00003C95 

RV.ULT 

,  , ,743.743,31 ,31 

00003  *  00 

UNLIST 

ABS 

USED  TO  LIST  PROGRAM 

00004000 

LOAD 

FORTM , BAGS , 0 AG06 , X ACNO 

OOCOSCOO 

JOBTAPE 

U0STA1 , ENPLO 

00007000 

* 

00008000 

CHA  10 

SYN 

1 

BAG  CLAIM  SWITCH-CHAIN 

00009000 

CHA  IB 

eou 

K54), L.C 

BAG  CLAIM  SWITCH-CHAIN 

00010000 

CHA20 

SYN 

55 

BAG  CLAIM  SWITCH-CHAIN 

0001 1000 

CHA26 

EO'J 

55. L.C 

BAG  CLAIM  SWITCH-CHAIN 

00012000 

CHKQS 

SYN 

1 

EXPRESS  CHECKIN  OUE-STO 

00013000 

chkqs 

EOU 

1(18), O.S 

EXPRESS  CHECKIN  QUE-STO 

00014000 

cusos 

SYN 

204 

CUSTOMS  OUE-STO 

00015000 

CUSQS 

EOU 

204, Q,S 

CUSTOMS  OUE-STO 

00016000 

CMH01 

SYN 

16 

NO.  OF  COL.  -  MH1 

00017000 

CMH02 

SYN 

3 

NO.  OF  COL.  -  MH2 

0001 8000 

CMH03 

SYN 

4 

NO.  OF  COL.  -  »H3 

00019000 

CMH04 

SYN 

2 

NO.  OF  COL.  -  MH4 

00020000 

CMH06 

SYN 

1  10 

NO.  OF  COL.  -  MH6 

00021000 

CMH07 

SYN 

1 

NO.  OF  COL.  -  MH7 

00022000 

CMHOB 

SYN 

2 

NO.  OF  COL.  -  MH8 

00023000 

CMH09 

SYN 

6 

NO.  OF  COL.  -  MH9 

00024C00 

CML02 

SYN 

10 

NO.  OF  COL.  -  ML2 

00025000 

•  CURB,  OP,  AND 

QUEUE  MUST  ALL  HAVE 

SAME  NUMBER  OF  ENTITIES.  ANO 

00026000 

•  enpl  curb  entities  must  immediately  follow  depl  curb  entities 

00027000 

• 

00027050 

•  INPUT  DATA 

CAROS  MUST  SHOW  A  FACILITY  FOR  ALL  ENPLANING  AND 

00027100 

*  DEPLANING  curb  storages  allocated. 

I.  E..  the  NUMBER  OF  FACNO'S  of 

00027200 

•  ENPLANING  ano 

OEPLANING  CURBS  MUST 

match  THE  NUMBERS  IN  PARENTHESES 

00027200 

*  OF  these  curb 

STORAGES. 

00027400 

DPCBS 

SYN 

44 

00028C00 

OPCBS 

EOU 

44(4), S 

DEPLANING  CURB  STO 

00029C00 

EPCBS 

SYN 

48 

00030000 

EPCBS 

EOU 

48(4) ,S 

ENPLANING  CURB  STO 

00031  COO 

DPDPS 

SYN 

52 

00032000 

DPOPS 

EOU 

52(4), S 

DEPLANING  OOUPLE  PARK  STO 

00033000 

EPDPS 

SYN 

56 

• 

00034000 

EPOPS 

EOU 

56(4) ,S 

ENPLANING  DOUBLE  PARK  STO 

00035000 

DPQCS 

SYN 

60 

00036CCO 

OPOCS 

EOU 

60(4) ,C.S 

deplaning  queue  chain-sto 

00037000 

EPQCS 

SYN 

64 

00038000 

EPQCS 

EOU 

64(4), C.S 

ENPLANING  OUEUE  CHAIN-STO 

00C39000 

GAQSL 

SYN 

80 

GATE  OUE-STO-SWITCH 

00040000 

GAQSL 

EOU 

80(105), O.S.L 

GATE  QUE-STO-SWlTCH 

0004 1000 

OEPXH 

EOU 

1 1 1 , XH 

OEP.  CURB  COUNT 

00041100 

RCOXH 

EOU 

112, XH 

RECIRC.  TO  DEPL. 

00041200 

RCEXH 

EOU 

1 13.XH 

RECIRC.  TO  ENPL. 

00041200 

RERXH 

EOU 

1 14, XH 

RECIRC.  ROAOWAY  COUNT 

00041400 

PLIXH 

EOU 

1 15, XH 

PARKING  FACILITY  ENTRANCE 

00041 SOO 

A-3-7 


ARDXH 

egu 

1 1 6 , XH 

AIRPORT  ENTRANCE  FLOW 

00041 E 1 0 

OKOXH 

tou 

1 1 7 , XH 

AIRPORT  EXIT  FLOW 

00041520 

EALXH 

EOU 

1 18.XH 

EASTERN  EXPRESS  FLOW 

00041530 

AMAXIT 

EQU 

1 1 9 . XH 

AMERICAN  EXPRESS  FLOW 

00041540 

UNTXH 

EOU 

1 20 , XH 

UNITED  EXPRESS  FLOW 

00041550 

IMMQS 

SYN 

42 

IMMIGRATION  QOE-STO 

00042000 

IMMQS 

EOU 

42 ,0,  S 

IMMIGRATION  QljE-STO 

C0043000 

PAROS 

SYN 

19 

PARKING  LOT  EXIT  OUE-STO 

00044000 

PAROS 

EOU 

19(8) ,0,S 

PARKING  LOT  EXIT  CUE-STO 

00045000 

PTNXH 

EOU 

1  ( 1 1 0 ) , XH 

POINT  NO  XH 1 S  (CONGESTION) 

00046000 

RCRQS 

SYN 

27 

RENTACAR  OUE-STO 

00047000 

RCRQS 

EOU 

27(8), O.S 

RENTACAR  OUE-STO 

00048C00 

SECQS 

SYN 

36 

SECURITY  OUE-STO 

00049000 

SECOS 

EOU 

36(5), O.S 

SECURITY  OUE-STO 

00050000 

TICQS 

SYN 

185 

TICKETS4CHECKIN  OUE-STO 

00051000 

TICQS 

EOU 

185(18) ,0,S 

TICKETS4CHECKIN  OUE-STO 

00052000 

PAXWT 

EOU 

13, T 

TABLE  FOR  PAX  WALKING  TIME 

00052:00 

DEFINITION  STATEMENTS 
USEO  TO  DEFINE  MATRIX  SIZES,  FUNCTIONS,  VARIABLES  ANO  TABLES 

HALFWORD  MATRICES 

1  MATRIX  MH.330,16  FLIGHT  SCHEDULE 

1  ROW  PER  FLIGHT  PLUS  1  ROW  TO  TERMINATE  DEPL  PAX  GENERATION 
(PAX  XAC  PHI  POINTS  TO  MH1  ROW) 
col  i  -  -i  — >  eno  or  TABLE 

0  - >  ARRIVING  FLIGHT 

t  >  DEPARTING  FLIGHT 

2  - -  INDICATES  ALL  BAGS  FROM  ARRIVING  FLT  AT  BAG  CLAIM 

2  -  FLIGHT  NO 

3  -  AIR  LINE 

4  -  SCHEDULED  ARR I VAL/ DEPARTURE  TIME 

5  -  OEPL.  PAX  BEING  ME!  BY  PRIVATE  CAR 
G  -  TIME  FROM  START  (MINUTES) 

7  -  DOMESTIC,  COMMUTER  CR  INTERNATIONAL  FLT  (1,2,3) 

8  -  AIRCRAFT  type 

9  -  GATE  NO 

10  -  QHICINATING/TERMINATING  passengers 

11  -  transfer  passengers 

12  -  BAG  CLAIM  AREA  ( ARR V  FLT) 

-  PAX  WAITING  AT  LOUNGE  TO  BOARO  (DEPT  FLT) 

13  -  TRANSIT  PASSENGERS 

14  -  TOTAL  TERMINATING  BAGS  ( ARRV  FLT) 

15  -  TOTAL  TRANSFER  BAGS  (ARRV  FLT) 

16  -  TRANSFERS  OUT  OF  system 

2  MATRIX  MH.15,3  airline  information  table 

SIZE  TO  requirements 

1  row  per  carrier 

COL  1  -  ENPLANING  CURB  FAC  NO 

2  -  0/00  PRETICKETED  PAX  USING  EXPRESS  CHECKIN  (0  ■  NO  EXP  CHK) 

3  -  ENPLCURB  FAC  NO  FOR  BUS  STOP  (IF  DIFF  FROM  COL  1) 


3  MATRIX  MH, 110,4  TAB 
1  ROW  PER  POINT 
COL  1  -  X-COOROINATE 

2  -  Y-COORDINATE 

3  -  NEAREST  EXIT  POINT  NO 


TABLE  OF  POINTS  •••SIZE 


00052200 
00053COO 
00C53100 
00053200 
00054C00 
00055000 
00056C00 
00057000 
00058000 
00C59000 
00060000 
0006 1  COO 
0UC62C00 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069C00 
00070000 
00071000 
00072000 
00073000 
00074C00 
00075000 
00076C00 
00077000 
00078000 
00079000 
00C80C00 
00081000 
00C82T.00 
00083000 
00084000 
OC085CO0 
(00086000 
00087000 
00088000 
00039000 
00090000 
00091000 
00092000 
00093000 


A-  3-8 


4  -  NEAREST  ENTRANCE  POINT  NO 

MATRIX  MH.3,2  PERCENT  ENPLANING  PAX  TICKETEO/DIRECT 

COL  1  -  X  PRETICKETED 

2  -  X  OP  PRETICKETED  PAX  WHO  GO  DIRECT  TO  GATES  VIA  SECURITY 
ROW  1  -  DOMESTIC 

2  -  COMMUTER 

3  -  INTERNATIONAL 

MATRIX  MH, 101.1  TRANSFER  FLIGHT  TABLE 

CONTAINS  MH1  ROW  OF  DEPARTING  FLIGHTS  TAKING  XFER  P AX 


MATRIX 


MH, 110, 110  WALKING  TIME  EETWEEN  POINTS 


MATRIX  MH.64,1  USED  AS  WORK  AREA  BY  BAG  CLAIM  ROUTINES. 

1  ROW  FOR  EACH  POSSIBLE  RANOOM  NUMBER  1-64  GENERATED  BY  ‘BAGS* 

MATRIX  MH.20,2  USED  TO  ACCESS  FACILITY  DATA  IN  MH9. 

CONTAINS  SAME  INFORMATION  AS  FORTRAN  “NFACSM*  ARRAY. 

COL  1  -  COUNT  OF  THIS  FACILITY  TYPE 

2  -  INOEX  NO  OF  FACILITY  TYPE;  AOD  FAC  NO  IN  TYPE  FOR  MH9  ROW 
1  ROW  PER  FACILITY  TYPE! 


00094C00 

0009SC0O 

00096C00 

00097000 

0009BC00 

00099000 

00100000 

00101000 

00102000 

00103C00 

00104000 

ooioscoo 
00106000 
00107000 
00108000 
00109000 
00110000 
001 11000 
00 II 2000 
00113000 
00114000 
001 15C00 


1 

• 

GATE 

2 

- 

CHECKIN 

00116000 

3 

- 

SECURITY 

4 

- 

BAGCLAIM 

00117000 

5 

- 

CUSTOMS 

6 

- 

ENTRANCE 

00118000 

7 

- 

EXIT 

B 

- 

ENPLCURB  (ENPLANING  CURB) 

001 19000 

9 

- 

TRANSFER  (STAIRS.  ETC.) 

10 

- 

PARKING 

00120C00 

11 

- 

RENTACAR 

12 

• 

DEPLCURB  (DEPLANING  CURB) 

00121000 

13 

- 

IMMIGRAT  (HEALTH,  ETC) 

14 

- 

TICKETSACHECKIN 

00122C00 

15 

- 

20  •»  S  P  A  R  E  <• 

00123000 

MATRIX  MH.230.6  FACILITY  TABLE  •**  SI2E  TO  NEEDS  ••• 

1  ROW  PER  ACTUAL  OR  DUMMY  FACILITY 

COL  1  -  FACILITY  TYPE  (SEE  MH8  ROW  DESCRIPTION  FOR  COOES) 

2  -  FACILITY  NUMBER  WIIttlN  TYPE 

3  -  LOCATION  (POINT  NUMCER) 

4-3  USED  TO  IDENTIFY  FACILITY  WITH  OTHER  MODEL  COMPONENTS 
BAGCLAIM  -  4  -  OEPLCURB  FACNO  (ARV  FITS) 

CUSTOMS  -  4  -  OEPLCURB  FACNO  (ARV  FITS) 

GATE  -  4  -  SECURITY  POINT  FACNO  (DEP  FLTS) 

5  -  IMMIGRATION  AREA  FACNO  (aRV  FLTS) 

IMMIGRAT  -  4  -  ASSOCIATED  CUSTOMS  FACNO  (ARV  FLTS) 

RENTACAR  -  4  -  AGENCY  CODE  (SEE  FNSRCA2F ) 

5  -  PARKING  FACNO(IF  OTHER  THAN  1,  SPECIAL  LOT 
TICK4CKIN-  4  -  AIRLINE  CODE 

CQNCESSI  -  4  -  ASSOCIATED  SECURITY  ( *0  FOR  LOBBY) 

A  COUNTER  FOR  PAX  LEAVING  CONCOURSE 
A  COUNTER  FOR  PAX  LEAVING  SECURITY 
FOR  AIRLINES 


REUSABLE  RANOOM  NUMBER  TABLE 
GROUND  TRANSACTION  MODAL  CHOICE 


1 1 

MATRIX 

MH ,7,1 

12 

MATRIX 

MH, 7 , 1 

13 

MATRIX 

MH , 1 5 , 1 

F 

L  0  A  T  I 

N  G  M  A 

1 

MATRIX 

ML, 1,127 

2 

MATRIX 

ML. 3, 10 

ROW  1  -  DOMESTIC 

2  -  COMMUTER 

3  -  INTERNATIONAL 


00124000 
00125C00 
00126C00 
00 1 27C00 
0012SC0O 
00129C00 
00130000 
00131  COO 
001 32000 
00133000 
00134000 
00135C00 
0013GC00 
I00137C00 
00137100 
00138000 
00138100 
00138:00 
00139C00 
00139100 
001 39:00 
00139:00 
00140000 
00141  COO 
00142C00 
00143C00 
00144000 
00145000 
00146C00 
00147000 
00148000 
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1  -  PRIVATE  CAR  -  CURS  ANO  PARK  PERCENTAGE 

2  -  RENTAL  CAR  CUM.  X  PRIVATE 

3  -  BUS/ L I MO  CUM.  X  PRIVATE 

4  -  TAXI  CUM.  X  PRIVATE 

8-10  •*  S  P  A  R  E  *• 


•  deplaning  pax  process  funct ions 

« 

D0P1F  ^UNCTION  PB2.L6  DEPLANING  DOMESTIC  PROCESS  FN  1 
, CNCRO/ . RCARO/ , BAGCO/ , EX  I  TO/ , CGTRO/ . 0EP99 

DCP1F  FUNCTION  P82.L5  DEPLANING  COMMUTTER  PROCESS  FN  1 
, CNCRO/ . BAGC  0/ . EXI TO/ .CGTRO/ . DEP99 

DIP1F  FUNCTION  PS2.LS  DEPLANING  INTERNATIONAL  PROCESS  FN  1 
.CNCRO/ . IMMI 0/ , BAGCO/ . CUSTO/ , RCARO/ . EXI TO/ , CGTRO/ . DEP99 
DLP1F  FUNCTION  P32.L4  DEPLANING  LOBBY-BOUND  PROCESS  FN  1 
, CNCRO/ , CHEK  0/ . CGTRO/ , DEP99 

• 

*  ENPLANING  pax  process  functions 

* 

EDP1F  FUNCTION  PB2.L6  DOMESTIC  ENPLANING  PAX  -  PROCESS  FN  1 
, CGTR1 / , ENTRO/.CHEKO/ , SECUO/ .GATEO/ , ENP99 

ECP1F  FUNCTION  PB2.L6  COMMUTER  ENPLANING  PAX  -  PROCESS  FN  1 
. CGTR1/, ENTRO/.CHEKO/ .SECUO/, GATEO/. ENP99 

EIP1F  FUNCTION  PB2.L6  INTERNATIONAL  ENPLANING  PAX  -  PROCESS  FN  1 

, CGTRl / . ENTR  0/ , CHE  KO/ . SECUO/ , G A  TEO/ . ENP99 

■ 


*  TRANSFER  PAX  PROCESS  FUNCTIONS 

TIPI F  FUNCTION  PB2.L8  INTERNATIONAL  TRANSFER  PAX  -  PROCESS  FN  1 

.CNCRO/. IPI 9/ .BAGCO/. CUSTO/, CHCKO/ . SECUO/. GATEO/. TRX99 


00149C00 
00150000 
00151000 
00152000 
001 53000 
00 1 54000 
00155000 
00156000 
00157000 
00158000 
00159C00 
00  I 60C00 
00161000 
00162000 
00163000 
00164000 
00165000 
00166000 
00167000 
00160000 
00169000 
00 1 70000 
0017 1  COO 
00172C0G 
00173000 
00174C00 
00175000 
00175000 
00  *  7"*000 
00 1 7bv00 
00179000 
00180000 
00181  COO 
0C182C00 


TDP1F  FUNCTION  PG2.L4  OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN  1  00183000 
.CNCRO/. SECUO/. GATEO /.TRX99  OC184COO 

TDP2F  FUNCTION  P82.L5  OOIWEST/ COMMUTE  TRANSFER  PAX  -  PR0CE5S  FN  2  Q0185COO 
. CNCRO/ . SECUO/ . CONCO/ . GAT EO/ . TRX99 

TDP3F  FUNCTION  PB2.LS  OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN 
, CNCRO/ . L08C0/ . SECUO/ .GATEO/ . TRX99 

TD°4F  FUNCTION  PB2.L6  OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN 
.CNCRO/. CHEK 0/. LO0CO/. SECUO/, GATEO/ , TRX99 
TDP5F  FUNCTION  PB2.L5  OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN 
, CNCRO/ . CHEKO/ , SECUO/ .GATEO/ . TRX99 


T0P6F  FUNCTION  P82.L2 
.GATEO/. TPX99 
TDP7F  FUNCTION  P82.L3 
.CONCO/. GATE 0/.TRX99 
TOLOF  FUNCTION  RN3.S5.2 


. 1 .T0P1F/ .3, T0P2F/ .8.TDP3F/.9. ICP4F/1 .0.TDP5F 


OOME ST/ COMMUTE  TRANSFER  PAX  -  PR0CE5S  FN  2  00185COO 
TRK99  00186C0O 

OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN  3  OOI87COO 
trx99  ooieoroo 

OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN  4  0D189C00 
GATEO/, TRX99  00190000 

OOMEST/COMMUTE  TRANSFER  PAX  -  PROCESS  FN  5  00191C00 
TRX99  00 1 92000 

SAME  AS  TOPI F  FOR  SAME-CONCOURSE  PAX  00193C0O 

00I94C00 

SAME  AS  T0P2F  FOR  SAME-CONCOURSE  PAX  00195000 

00 ! 96C00 

FUNCTION  SELECTOR — L0HG-5T AY/DI FF  CONCQURSE00197000 


SAME  AS  TOPI F  FOR  SAME-CONCOURSE  PAX 
SAME  AS  T0P2F  FOR  SAME-CONCOURSE  PAX 


00198000 


TDLSF  FUNCTION  RN3.S5.Z  FUNCTION  SELECTOR — LONG-STAY/SAME  CONCOURSE 00 199C00 


.  1  .T0P6F/ 


,  TDP7F/.8.TDP3F/.9.7  0P4F/1.0.TDP5F 


00200C00 


TOSDF  FUNCTION  RN3.S3.Z 
.6.TDP1F/.9, T0P2F/1 .0.TDP5F 
TDSSF  FUNCTION  RN3.S3.Z 
.8.T0P6F/.9, T0P7F/1 .0.T0P5F 
TOPXF  FUNCTION  RN3.53.Z 
.8.T0P6F/.9. T0P7F/1 .0.T0P3F 
TOSOF  FUNCTION  PB2.L2 
.CNCRO/, TRX99 
TOSEF  FUNCTION  P82.L3 


FUNCTION  SELECTOR-SHORT-STAY/OIFF  CQNCOURSE0020 1  COO 

00202000 

FUNCTION  SELECTOR-SHORT-STAY/SAME  CONCOURSE00203C00 

00204C00 

FUNCTION  SELECTOR— TRANSIT  PAX  00205000 

00206C00 

TRANSFER-OUT-OF-SYSTEM  PROCESS  FN  (DEPL)  00207000 

00208000 

TRANSFER-OUT-OF-SYSTEM  PROCESS  FN  (ENPL)  00209000 
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, SECUO/ .GATE0/.TRX99 
* 

•  WELL-WISHER  PROCESS  FUNCTIONS 


WMS1 F  FUNCTION  P82.L3  l 

.EXIT0/.GRT00/.ENP99 
WWG1 F  FUNCTION  P82.L4  I 

, CNCRO/ , EX I  TO/ , CRT 00/ , ENP99 

* 

•  GREETER  PROCESS  FUNCTIONS 

• 

GREGF  FUNCTION  PB2.L4 

, GRT02/ , ENTRO/ , SECUO/ .GATEO 
GRELF  FUNCTION  P82.L3  i 

.GRT02/, ENTRO/. CHEKO 
GREBF  FUNCTION  PQ2.L3 

, GRT02/ . ENTRO/ . SAG CO 
GRECF  FUNCTION  PB2.L2 

, GRT02/ , DPCGO 
GRCPF  FUNCTION  PB2 , L2 

, GRTOO/ . 0EP99 


0021 OCOO 
0021 1C00 

IONS  00212C00 

00213000 

WELL-WISHERS  LEFT  AT  SECURITY  00214C00 

00215C00 

WELL-WISHERS  LEFT  AT  GATE  00216C00 

0021 7C00 
0021 6C00 
0021 9C00 
00220000 

GREETERS  GOING  TO  GATE  00221  COO 

00222C00 

GREETERS  GOING  TO  LOBBY  00223C00 

00224C00 

GREETERS  GOING  TO  BAG  CLAIM  00225C00 

00226C00 

GREETERS  GOING  TO  CURB  (AFTER  RECIRCSPARK)  00227C00 

00228000 

GREETED-AT-CURB  PAX  00229C00 

00230C00 
00231  COO 

S  00232C00 

00233C00 

ROUTE  OEPL  PAX  BY  GROUND  TRANSPORT  MODE  00234000 

Of  ..CO  C0235C00 

ROUTE  ENPL  PAX  BY  GROUND  TRANSPORT  MODE  00236000 

ENPCO  00237C00 


GREETERS  GOING  TO  GATE 
GREETERS  going  TO  LOBBY 
GREETERS  GOING  TO  BAG  CLAIM 


greeted-at-curb  PAX 


«  OTHER  AOORESSI NG  FUNCTIONS  00232C00 

.  00233C00 

CTR1F  FUNCTION  PB6.L5  ROUTE  DEPL  PAX  BY  GROUND  TRANSPORT  MODE  00234000 

.OPLCO/. GRTOO/. RCAR9/.DPLC0/, Of ^CO  C0235C00 

CTR2F  FUNCTION  PB6.L5  ROUTE  ENPL  PAX  BY  GROUND  TRANSPORT  MODE  00236000 

. ENPCO/ .GRTO 1 / . RCAR8/ . ENPC2/ . ENPCO  00237C00 

0PL1F  FUNCTION  PB6.L5  ROUTE  DEPLCURB  PAX  BY  GROUND  TRANSPORT  MODE00238000 

, 0PLC3/ . ERROR/ , ERROR/ .0PLC4/ .0PLC5  00239C00 

ENP1F  FUNCTION  PB3.L3  ROUTE  ENPL  PAX  BY  DOM-COM-INT  FLT  00240000 

. ENPL1 / . ENPL 2/ . ENP  L3  00241C00 

•  00242000 

•  SERVICE  TIME  FUNCTIONS  00243C00 

•  00244000 


BUN1F  FUNCTION  PH5 , 54 , Z  BAGGAGE  UNLOAD  ENTITY  FUN  F(A/C  TYPE) 

9.BUN3F/10.BUN3F/1 1 , BUN3F/727 . BUN2F 
BUN2F  FUNCTION  RN6.C5  BAGGAGE  TIME  TO  CLAIM  AREA  -  727 
0. ,440/. 135. 630/. 88. 1 1 10/. 95, 1 260/1 .0,1770 
BUN3F  FUNCTION  RN6.C5  BAGGAGE  TIME  TO  CLAIM  AREA  -  DCS  DC10 
0. ,260/. 065. 420/. 33, 660/ .96,930/1 .0, 1 140 
CHK1F  FUNCTION  RN7.C7  EXPRESS  CHECKIN  TIME 

0.0, 0/0. 1 1 .60/0.54, 120/0.71 . 180/ .82 . 240/ .89 , 300/1 . ,480 
GAT3F  FUNCTION  RN7.C6  GATE  PROCESS  TIME 
0. ,0/0. 43. 60/. 81 .120/ .97, 180/. 99, 240/1 . ,300 
CHK2F  FUNCTION  RN7.C7  TICKET/CHECKIN  TIME 

0. .0/0.08.60/0.19,120/0.02,300/0.91 , 360/ . 97 . 420/ 1 . ,480 
IMM1F  FUNCTION  RN7.C7  IMMIGRATION  PROCESS  TIME 

. 0. 0/. 17, 30/ .49, 60/. 81 ,90/. 91 . 120/. 99, 180/1 .0,240 
CUS1F  FUNCTION  RN7.C6  CUSTOMS'  PROCESS  TIME 
0.0, 0/0. 106,60/0.480.120/0.750 , 1B0/0 .93 , 300/ 1 .0,421 
PARI F  FUNCTION  RN7.C7  PARKING  LOT  EXIT  SERVICE  TIME 

0. .0/.41 , 15/ .64. 30/. 75, 45/. 85, 60/. 97, 90/1 . , 180 
RCA1F  FUNCTION  RN7.C5  CAR  RENTAL  PROCESSING  TIME 

0. ,0/. 39, 180/. 85, 360/. 96, 540/1 . ,780 
SEC1F  FUNCTION  RN7.C7  SECURITY  SERVICE  TIME  PER  PERSON 
0.0,0/0.47. 15/0.769,30/0.842,60/0.903, 120/0.945.240/1 .0,480 
CSCKF  FUNCTION  RN7.C6  CURBSIDE  CHECKIN  PROCESS  TIME 


00245000 
00246C00 
00247000 
00248000 
00249C00 
00250000 
0025 1000 
00252000 
00253000 
00254000 
00257C00 
00258000 
00261000 
00262000 
00262 '00 
00262200 
00263000 
00264000 
00265000 
00266000 
00266100 
00266200 
00266200 


0.0,0/0.166,  120/0.62,240/0.81 ,360/0.92,540/1.0,900  00266H00 

ATK1F  FUNCTION  XHSCHKXH, El  1  CHOSE  AIRLINE  TICKET/CHECKIN  VARIABLE  00266500 
1 , VSCHK2V/2 , VSCHK2V/3 . VSCHK2V/4 , VSCHK2V/5 , VSCHK2 V/6 , VSCHK2V/ 7 , VSCHK2V  00266E00 
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co  *  *  *  o  o  i 


, VSCHK2V/9 . VSCHK2 V/ 1 0 . VSCHK2V/ 1 1 , VSCHK2V 
DWELL  TIME  FUNCTIONS 

ENP2F  FUNCTION  RN7.C7  VEHICLE  UNLOAD  TIME 

. ,0/. 54, 15/. 71 .30/. 83, 45/. 88, 60/. 94, 90/1 . .  1  50 
ENP3F  FUNCTION  RN7.C7  EMPTY  VEHICLE  PARK  TIME  - 
. .0/. 2,30/. 4, 4C/. 54, 60/. 72. 90/. 96,1 50/1 .0, 180 


OTHER  functions 


PPPDF  FUNCTION  VSRANDV , 06  PAX/PARTY  -  DEPLANING 

. 32, 1 /. 71 .2/ .91 .3/ .97, 4/. 99,5/ t .0,6 

GRPPF  FUNCTION  RN6.D5  GREETERS/PARTY  (PARTIES  W/GREETERS  ONLY) 
.68,1/. 91 .2/. 95. 3/. 97, 4/1 .0,5 

0CA1F  FUNCTION  RN7.C6  ARSV.  DISTRIBUTIONS" CARS  MEETING  PAX 
0.  .0/. 575. 16 00/. 66. 2700/. 75, 3600/. 81  ,4500/1 . ,6300 
0CA2F  FUNCTION  RN7.C6  ARRIVAL  DISTRIBUTIONS  -  GREETERS 
0. , 0/ . 575 , 1800/. 66. 2700/. 75. 3600/. 81 .4500/1 . .6300 
CBAGF  FUNCTION  VSRANOV ,  06  NO.  OF  BAGS  -  COMF.STIU  FLIGHT 
. 37,0/. 63, 1/ .83,2/. 92, 3/. 96. 4/1 .O.S 

CBAGF  FUNCTION  VSRANDV, D7  NO.  OF  BAGS  -  COMMUTER  FLIGHT 
. 2, 0/. 52. 1/. 79. 2/. 92. 3/. 96. 4/. 98, 5/1 .0.6 
I3AGF  FUNCTION  VSRANOV, 09  NO.  OF  BAGS  -  INTERNATIONAL  FLIGHT 
0.06,0/0.2.1/0.5.2/0.71 .3/0.84.4/0.89.5/0.93,6/0.95.7/1 .0,8 
RCA2F  FUNCTION  RN7.D4  CAR  RENTAL  AGENCY  SELECTION 
.40,1/. 75, 2/. 96. 3/1. 0.4 

RANOF  FUNCTION  RN6.C2  USED  TO  GET  RN  0-1  INSTEAD  OF  0-999 

0.0,0. 0/1 .0. 1  .0 


CAR  RENTAL  AGENCY  SELECTION 

USED  TO  GET  RN  0-1  INSTEAD  OF  0-999 


VARIABLES 
SERVICE  TIME  VARIABLES 

NOTE:  WHEN  PASSENGERS  SCALEO,  MULTIPLY  BY  XHSSCLXH. 


CHK1V  VARIABLE 
CHK2V  VARIABLE 
CU31V  VARIABLE 
GAT3V  VARIABLE 
IKM1V  VARIABLE 
PARI  V  VARIABLE 
RCA1V  VARIABLE 
SCLVO  VARIABLE 
SEC IV  VARIABLE 
CIRCV  VARIABLE 


FNSCHK1 F«XH$SCLXH  EXPRESS  CHECKIN 
FNSCHK2F*XH$SCLXH  FULL  SERVICE  TICKETING  TIME 
FNSCUS1F*XHJSCLXH«PB13  CUSTOMS  TIME 
FNSGAT3r »XH$SCLXH*PB1 3  GATE  SERVICE  time 
FN$ IMM IF* XHSSCLXH »PB1 3  IMMIGRATION  TIME 


TNSPAR1 F  *  XHSSCLXH 
FhiRCAl F*XH$SCLXH 
XHSSCLXH 
8*  XHSSC  LXH*PB5 
300 


PARKING  LOT  SERVICE  TIME 
CAR  RENTAL  CHECKOUT  TIME 
DUMMY  VAR  ~  DEFINES  XHSSCLXH 
SECURITY  SERVICE  TIME  (PARTY) 
RECIRCULATION  TIME 


OTHER  VARIABLES 


ACUNV  FVAR I  ABLE  VS ACU 1 V  *  3+90  00316C00 

MAX  UNLOADING  TIME  -  PAX  0031 7C00 

ACU1V  VARIABLE  MH1 (PHI .10J+MH1 (PHl ,11 )+MH1 (PHI . 131+MH1 (PHI ,16)  00318C00 

TOTAL  PAX  ON  AIRCRAFT  003I9C00 

ACU2V  FVARIABLE  XL$ACUNL*RN6/1000.+.S  stagger  PAX  OFF  A/C  00320COO 

BUN4V  VARIABLE  MH8 ( 4 , 2 ) *MH 1 ( PH 1 , 1 2 )  0AGCLAIM  INDEX  x-  AREA  NO  00321C00 

DPL1V  VARIABLE  30*PB4+45  DEPLCURS  LOAO  TIME  CARS/TAXI  00322000 

DPL2V  VARIABLE  RN3*SR*XF$TMPXF«60/1000000  RANDOM  PULLOUT  TIME  <60  SEC00323000 
DPL3V  VARIABLE  PH10125  MOO  FUNCTION  00324C0Q 

ENP1V  VARIABLE  FNSENP2F  ENPL  CURB  VEHICLE  OWELL  TIME  00325000 


BUN4V  VARIABLE 
DPL1V  VARIABLE 
0PL2V  VARIABLE 
0PL3V  VARIABLE 
ENP1V  VARIABLE 


00266650 

00267C00 

00268C00 

00269000 

ENPLANING  CURB  00270000 
00271000 

ENPLANING  CURB  00271100 
00271200 
OC272COO 
00273C00 
00274C00 

»NING  00275C00 

00276C00 

3REETERS  ONLY)  00277C00 
0027  3000 

sETING  PAX  0C279C00 

00280000 

•ETERS  00261000 

00282000 

3HT  00283000 

00204000 

JHT  00.'’85000 

00286000 

1L  FLIGHT  00287C&U 

.0,8  00788000 

*  002B9C00 

00290000 

OF  0-999  00291  COO 

00292000 
0C292700 
00293000 
00294000 
00295000 
0029-3C00 
00297C00 
00798C00 
C029900U 
00300000 
00301  COO 

ING  TIME  003C2C00 

00304000 

[ME  00305C00 

TIME  00307000 

ICE  TIME  OOJ03COO 

TUT  TIME  00309000 

VES  XHSSCLXH  00310000 

TIME  (PARTY)  '  00311000 

AE  0031 7000 

00313000 
0031 4000 
0C315C00 
0031 6C00 

AE  -  PAX  0031 7000 

X1(PH1,16)  00318C00 

IRAFT  00319000 

rF  A/C  00320000 

AREA  NO  00321  COO 

TIME  CARS/TAXI  00322C00 
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ENP2V  VARIABLE 
FLT1V  VARIABLE 
FLT2V  FVARI ABLE 


FLT3V  FVARI ABLE 

» 

FLT4V  FVARI ABLE 

FLT5V  FVARI ABLE 

FLT6V  FVARI ABLE 

GAT IV  VARIABLE 
GAT2V  VARIABLE 
I NCI V  VARIABLE 
XFL1V  VARIABLE 
XFL2V  VARIABLE 
XFL3V  VARIABLE 
XFL4V  VARIABLE 
DPCOV  VARIABLE 
OPOCV  VARIABLE 
OPQOV  VARIABLE 
DPOQV  VARIABLE 


EPCQV  VARIABLE 

EPgcv  variable 
OENFV  VARIABLE 
DLIMV  VARIABLE 
RANOV  FVARI ABLE 
RN02V  FVARI ABLE 
TMOOV  VARIABLE 


180  CURB  LOAD/UNLOAD  TIME  -  BUS/LIMO  00326000 

60*MH1 ( PH  1 , 6 )— AC 1 “3599  DELAY  TO  1  HR  BEFORE  SCH  ARRV  00327000 
MH1 (PHI ,10)»XLSGRTXL*(1 .-XLSCGTXL) «XLSPCBXL  00328000 

NO.  OF  PARKING  GREETERS  PROCEEDING  TO  CURB  00328100 

GRTXL-  X  GREETED,  CGTXL-  X  GREETED  AT  CURB  00328200 

PCBXL-  X  ACCESSING  PARK  AND  CURB  00328200 

MH1 (PHI , 10)»XLSGRTXL»( 1 .-XLSCGTXL) * ( 1 .-XLSPCBXL)  00329000 

NO.  OF  GREETERS  PROCEEDING  TO  PARKING  FACILITY  00329100 

MH1 (PHI .  I  0 ) • X  LSGRT X  L* XLSCGTXL  00330000 

NO.  OF  GREETERS  PROCEEDING  TO  CURB  ONLY  00330C10 

MH1 (PHI , 10) •ML2( PB3, 1 )-MH1 ( PHI ,5)  00330100 

NO.  OF  TERMINATING  PAX,  SELF  DRIVEN  00330110 

MH1 (PHI . 10) «( 1 .-ML2(PB3.1 ) )  00330200 

NO.  OF  TERMINATING  PAX  USING  OTHER  MODES  00330210 

3600-XHSBDTXH  START  BOARDING  PRIOR  TO  DEPARTURE0033 1  COO 

GAOSL+'.’HI  (PHI  ,9)-1  GATE  BOARDING  SWITCH  0O332C0O 

XHS’NCXH-1  ALLOW  FOR  START  TIME  *  1  -  TIMER  00333C00 

60»MH1 (PHI ,6 )-AC1 -XHSXFAXH  DELAY  TO  AOD  FLT  TO  XFRFLT  00334000 
60*MH1 (PHI ,6 ) - AC1 - XHSXFOXH  DELAY  TO  OLT  FLT  FM  XFRFLT  00335C00 
XH$XFOXH*'RN7/2000  STAGGER  XFER  PAX  TO  SECURITY  '  00336COO 

(60«MHI(PH1 , 6J-AC1 )/60  TIME  UNTIL  FLT  (MIN)  00337C00 

PH6-DPCBS+0PDPS  DEPLANING  CURB-DOUBLE  PARK  00338C00 

PH6-DPDPS+DPCQS  DEPLANING  DOUBLE  PARK-CURB  00339000 

PH6-DPQCS+DPDPS  DEPLANING  QUEUE-DOUBLE  PARK  00340000 

PH6-0PDPS+0PQCS  DEPLANING  OOUBLE  PARK-QUEUE  0O341COO 

S  USED  FOR  ENPLANING  CURB  ALSO  00342000 

PH6-EPCBS+EPQCS  ENPLANING  CURB-OUEUE  00343000 

PH6-EPQCS+EPCCS  ENPLANING  QUEUE-CURB  O0344C00 


ABOVE  VARIABLES  USED  FOR  ENPLANING  CURB  ALSO 


PH6-EPCBS+EPQCS 

PH6-EPQCS+EPC0S 

300 

PH8+300 
MLH1  .PB10) 
FNSRAN0F«126.0+1 .0 
AC1832767 


•  VARIABLES  ANO  BOOLEAN  VAR.  FOR  ENPLANING  AND  DEPLANING  VEHICLE  DELAY 
LNFLD  BVAR I  ABLE  ( S*PH5 ' G' 0) • (VSNLNMX ' E 1 1 )  TRUE  IF  DBL  PARKING  A 


DPCD0  VARIABLE  PH8-0PCBS+0P0PS 


ENPLANING  CURB-OUEUE  00343000 

ENPLANING  QUEUE-CURB  O0344C00 

DEPL  CURB  ENFORCEMENT  EVERY  5  MIN00345COO 
DEPL  CURB  TIME  LIMIT  5  MIN  0C346C00 

USED  AS  ARGUMENT  OF  FUNCTIONS  00347C00 
YIELDS  RANDOM  INDEX  FOR  ML1  00348C00 

MOD  FNUNCT ION  FOR  ABS  CLOCK  TIME  00348C01 

00348C03 

00348006 

00348010 

LANING  AND  DEPLANING  VEHICLE  DELAY  00348020 

00348030 

00348035 

MX  *  E  *  1 )  TRUE  IF  DBL  PARKING  A  00348040 

NO  OF  PASSING  LANES  AVAILABLE  IS  1  00348050 


OOUBLE  PARKING  STORAGE  NUMBER 
GIVEN  DEPL  CURB  STORAGE 


00348060 

00348070 


CIRVO  BVARI ABLE  ( PB1 0 1 E ' 4 ) • ( PH4 1 E ' VSDBPK0+MH8 (12,1)1  TR  IF  CIR  VEH  A  00348080 
•  AT  LAST  STO  NO  OF  DEPL  CURB  00348CS5 


DBPKO  VARIABLE 
CIRVH  BVARI ABLE 

• 

NLNM1  VARIABLE 
LNFUL  BVARI ABLE 

* 

DBPK1  VARIABLE 
EPCD8  VARIABLE 

• 

LNOLY  VARIABLE 
NLNMX  VAR I ABLE 
OEPLS  VARIABLE 

• 

ENPLS  VARIABLE 
EDOUT  BVARI ABLE 


AT  LAST  STO  NO  OF  DEPL  CURB  00348085 

OPCBS-1  SET  TO  1  LESS  THAN  FIRST  DEPL  CURB  ST000348100 

( PB1 0 '  E  '  4 )  •  ( PH4  *  E ' VSDBPK 1 +MH8 (8,1))  TR  IF  CIR  VEH  4  00348*20 

AT  LAST  STO  NO  OF  ENPL  CURB  00348*30 

VSNLNMX-1  ONE  LE,SS  THAN  MAX  NO  OF  OASSING  LANES  00348140 

(S*PH5'G'0)*( VSNLNMX *  E ‘ 1 )  TRUE  IF  DBL  PARKING  4  00348150 

NO  OF  PASSING  LANES  AVAILABLE  IS  1  00348160 
EPC8S-1  SET  TO  1  LESS  THAN  1ST  ENPl  CURB  STO  NO  00348170 

PH8-EPCBS+EPDFS  DOUBLE  PARKING  STORAGE  NUMBER  00348180 

GIVEN  ENPL  CURB  STO  NO  00348190 

2*3/XHSNOLAN  DELAY  IN  SEC  DUE  TO  LOSS  OF  LANES  00348200 

3  MAX.  NO.  OF  PASSING  LANES  AVAILABLE  00348210 

PH4+( PB 1 0-1 ) • 2*MH8 (12,1)  1  LESS  THAN  CORR  DEPL  STO  00348220 

OF  DESTINATION  00348225 

PH4+( PB1 0-1 ) »2*MH8 (8,1)  1  LESS  THAN  CORR  ENPL  STO  N000348230 

OF  DESTINATION  00348235 

( PB1 1 E 1 5+PS1  1 E*  24+PSt 'E'25)  00348240 


A-  3  - 1 3 


DDOUT 

BVARI ABLE 

ENDIN 

bvari able 

DPDIN 

bvari ABLE 

SECNN 

VARIABLE 

TCKTN 

VARIABLE 

B  C 

)  0  L  E  A  1 

XFL1B 

BVARI ABLE 

CHK1B 

BVARI ABLE 

DUMB 

BVARI ABLE 

TABLE 

HOUR  1 

TABLE 

H0UR2 

TABLE 

H0UR3 

table 

H0UR4 

table 

HOURS 

table 

H0UR6 

TA8LE 

H0UR7 

table 

HOURS 

table 

H0UR9 

table 

HORIO 

table 

H0R11 

table 

H0R12 

table 

PAXWT 

TABLE 

PB1  *  E  ‘  2 

( PB1 1  £  1 6+PB 1  1 E ' 27+PB1 'E'26) 
PB1 ' E 1 28 


PH5+1-SEC0S 
PH5+1 -T ICQS 
V  A  R  I  A 


B  L  E  S 


passenger  transaction  parameters 


halfword: 


7  - 


BYTE: 


0  - 

9 
10 
1 1 

1 

2 

3 

4 

5 

6 


00348245 
00348250 
00348255 
00349C00 

OBTAIN  CONCOURSE  NUMBER  FROM  PH5  00349200 
OBTAIN  A/L  NO  FROM  PH 5  0C349<’00 

00350000 
0035 1  COO 
00352000 
00353000 
00354000 
00355000 
00355 : 00 
00355200 
00355200 
00355250 
00355400 

HOURLY  TABLCS  FOR  PAX  WAITING  TIME0G355'’  10 

00355*20 
00355430 
00355440 
00355450 
CO 355460 
0C355470 
00J55480 
00355*90 
00355495 
00355496 
00355497 
0C355500 
00356C00 
00357000 
00358000 
C0359000 
00360000 
00361000 
00362000 
00363000 
0C364C00 
00365C00 
00366000 
0C367C00 
00363000 
C0369C00 
CC370C0O 
00371000 


(MH1 (PHI .  1  ) 1 E' 1 )*(MH1 (PHI ,1 1 ) 1 G 1 0 )  DEPT*AND»TPAX>0 
(PB7‘nE ’ 1 )♦( PB91 E1 1 )*( RN7 1 GE ' MH4 ( P33 • 2) ) 

NOT  ENPL  .OR.  NOT  TICKETED  .OR.  NOT  DIRECT 
( VSTMOOV'G' VSDLIMV )*(PB10'G' 1 )  DEPL  CURB  TIME  LIMIT 


PH1 1 , 1 00 , 1 00 , 20 
PHI  1,100,100,20 
PH1 1 , 100,100 .20 
PH1 1 ,100,100,20 
PH1 1 ,100.100,20 
PH1 1 ,100.100,20 
PH1 1 ,100.100,20 
PH1 1 , 100. 100,20 
PH1 1  ,100.100,20 
PHI  1 . 100, 100.20 
PH1 1  ,1 00, 100, 20 
PH1 1 .100.100,20 
PH9 ,100,1 00 , 20 


TABLE  FOR  PAX  WALKING  TIME 


-  FLIGHT  TABLE  ROW  NUMBER 

-  LOCATION  (POINT  NUMBER) 

-  MAX.  BAG  RANOOM  NUMBER 
PAX  STORAGE  NO  IN  DEPLANING  CURB  LOGIC 

-  ADDRESS  PARAMETER 
-««  SCRATCH** 

INITIALLY  CARRIES  GATE  NO  FOR  DEPL  PAX 
FORTM  USES  A  •  RETURN  FOR  STO,  QUE.  NOS,  ETC. 
6  -  USER  CHAIN  FOR  BAG  CLAIM  (DEPL-  PAX  ONLY) 

CAR  STORAGE  NO  IN  DEPLANING  CURB  LOGIC 
MH9  ROW  FOR  LAST  FACILITY 
(NOT  IMPLEMENTED  IN  EXIT  LOGIC) 

SCRATCH 


FORTM  USES  AS  RETURN  FOR  ADDR  IN  XFER  PAX  LOGIC  00372C00 


7  - 

8  - 

9  - 


CUMULATIVE  WA1KINC.  TIME  00373CO0 
X AC  SEQUENCE  NUMBER  FOR  DEPL  PAX  MEETING  00374000 
CUMULATIVE  PAX  WAITING  TIME  00374*00 
PROCESS  FUNCTION  NUMBER  00375000 
PROCESS  FUNCTION  POINTER  00376C00 
TYPE  OF  FLIGHT  (1*00M,  2*C0M,  3*INT)  00377000 
NUMBER  OF  BAGS  00378000 
NUMBER  IN  PARTY  (VISITORS  +  SELF)  00379000 
MODE  OF  GROUND  TRANSPORT AT ! ON  0C380C00 
(ScE  MATRIX  ML2  FOR  CODES)  00331000 
0*DEPLANING,  1-ENPLANING  003S2000 
1  «  TERMINATING,  2  *  TRANSFER  00383000 
3  *  TRANSIT,  4  ■  TRANSFER  O'jT  OF  SYSTEM  00384000 
BAG  CLAIM  AREA  LOG  SWITCH  (DEPL.  PAX  ONLY)  00365000 


A-  3  -  14 


0  «  TICKETED,  1  ■  NOT  (ENPL.  PAX  ONLY) 

USED  IN  DEPLANING  FOR  SCRATCH 
RENTACAR  AGENCY 
CURRENT  PROCESS  CODE 
(SEE  MHS  FOR  COOES) 

(NOT  IMPLEMENTED  IN  EXIT  LOGIC) 

«1  FOR  MEETING  AT  GATE  ( DEPL  PAX  ONLY) 

•  2  FOR  MEETING  AT  BAG  CLAiM  (DEPL  ONLY) 

■3  FOR  MEETING  AT  TICKETING  (DEPL  ONLY) 

PAX  IN  PARTY 

#  OF  BAGS  FN  NUMBER;  LATER  PARKING  LOT  NUMBER 


00386000 
00387000 
00388000 
00389000 
00390000 
00391  COO 
00392000 
00393C00 
00394000 
00395C00 
00396C00 
00397000 
00398000 
00399000 


...CONTROL  ...  USED  TO  ROUTE  TRANSACTIONS  00398000 

THIS  SECTION  ROUTES  TRANSACTIONS  FROM  ONE  LOGIC  SECTION  TO  ANOTHER  00399000 
ALSO  CONTAINS  DGTR*  CODE  -  DEPLANING  GROUNO  TRANSPORT . 00400000 

00401000 

CTRLO  ASSIGN  4,FN*PB1,PH  ADDRESS  OF  NEXT  OPERATION  00402C00 

ASSIGN  2+, 1 ,PB  INCREMENT  PROCESS  FN  POINTER  00403000 

CTRL1  TRANSFER  , PH4  00404000 


CTRL8  TRANSFER 


CGTRO  ASSIGN 

TRANSFER 
CGTR1  ASSIGN 

TRANSFER 


.PARKO 


4.FNSCTR1F.PM 
PH  4 

4,FNSCTR2F,PH 
•  PH4 


ROUTE  DEPL  PAX  BY  GR  Tx  MOOE 
ROUTE  ENPL  PAX  BY  GR  TX  MQQE 


RLO  ASSIGN  4, FN*PB1 , PH  ADDRESS  OF  NEXT  OPERATION  00402C00 

ASSIGN  2+.1.PB  INCREMENT  PROCESS  FN  POINTER  00403000 

WL1  TRANSFER  , PH4  00404000 

00405000 

HANDLES  ROUTING  OF  DEPL  PAX  TO  PARKING  LOTS.  00406C00 

00407000 

RL8  TRANSFER  .PARKO  00408000 

00409C00 

THE  FOLLOWING  SECTIONS  OF  "CONTROL*  HANDLE  PAX  IN  GROUND  TRANSPORT.  00410CR0 

0041 1000 

TRO  ASSIGN  4.FNSCTR1F.PH  ROUTE  DEPL  PAX  BY  GR  TX  MOOE  00412C00 

TRANSFER  ,PH4  004 1 3000 

TR1  ASSIGN  4,FNSCTR2F,PH  ROUTE  ENPL  PAX  BY  GR  TX  MQOE  00414000 

TRANSFER  . PH4  0041 5000 

0041 RCOO 

THIS  SECTION  OF  "CONTROL"  GENERATES  THE  BUS/LIMO  SERVICE  TO  THE  00417000 

ENPLANING  A  DEPLANING  CURBS.  THE  CURRENT  MODEL  SIMULATES  A  SINGLE  0O418C00 
STOP  AT  EACH.  THOUGH  THE  ENPLANING  CURB  LOGIC  OF  THE  FORTRAN  ROU T I NE0G4 1 9C00 
• FQRTM"  SUPPORTS  A  MULTIPLE  STOP  SIMULATION  WHEN  DESIRED*  COMPLEX  00420000 
BUS  SCHEDULES  CURRENTLY  REQUIRE  INDIVIDUAL  PROGRAMMING.  00421C00 

0C422C00 

GENERATE  ,,.1,,2PH  00423000 

ASSIGN  2.1. PH  00424000 

SPLIT  1.CGTR3  00425C00 

TEST  E  XHSABUXH, 0,4+2  FT  IF  NO  ARV  BUS  SIMULATED  00426C00 

TERMINATE  00427C00 

TR2  ADVANCE  XHSABUXH  INTERVAL  BETWEEN  ARRIVING  BUSSES  0C42BC00 

SPLIT  1.CGTR2  00429000 

TRANSFER  , ENPC6  00430C00 

TR3  TEST  E  XHSDBUXH , 0 , • +2  FT  IF  NO  OEP  BUS  SIMULATED  00431C00 

TERMINATE  00432C00 

TR4  ADVANCE  XHSDBUXH  INTERVAL  BETWEEN  DEPARTING  BUSSES00433C00 

SPLIT  1.CGTH4  00 J34COO 

TRANSFER  .DPLC6  00435C00 

00436C00 

PASSENGER  TERMINATION  00437C00 

00438000 

*99  TABULATE  PAXWT  PASSENGER  WALKING  TIME  00439000 

TABULATE  XBSPXTBN  PASSENGER  WAITING  TIME  00435100 

TERMINATE  00439200 

*99  TABULATE  PAXWT  PASSENGER  WALKING  TIME  00440000 

TABULATE  XBSPXTBN  PASSENGER  WAITING  TIME  00440100 

TERMINATE  00440200 

<99  TABULATE  PAXWT  PASSENGER  WALKING  TIME  00441000 

TABULATE  XBSPXTBN  PASSENGER  WAITING  TIME  00441100 


GENERATE 
ASSIGN 
SPLIT 
TEST  E 
TERMINATE 
CGTR2  ADVANCE 
SPLIT 
TRANSFER 
CGTR3  TEST  E 

TERMINATE 
CGTR4  AOVANCE 
SPLIT 
TRANSFER 


,  .  .1  . , 2PH 
2 . 1  . PH 
1  ,  CGTR3 

XHSABUXH, 0,* +2 

XHSABUXH 
1  ,  CGTR2 
, ENPC6 

XHSDBUXH, 0,»  + 2 

XHSDBUXH 
1 .CGTH4 
. DPLC8 


FT  IF  NO  ARV  BUS  SIMULATED 


FT  IF  NO  OEP  BUS  SIMULATED 


PASSENGER  TERMINATION 


DEP99  TABULATE 
TABULATE 
TERMINATE 
ENP99  TABULATE 
TABULATE 
TERMINATE 
TRX99  TABULATE 
TABULATE 


PAXWT 

XBSPXTBN 

PAXWT 

XBSPXTBN 

PAXWT 

XBSPXTBN 


I 


TERMINATE 

,..E  NO  OF  CONTROL 

DEPLANING  PASSENGER  LOGIC 


GENERATE 
ASSIGN 
SPLIT 
AOVANCE 
ASSIGN 
OEPLO  ASSIGN 
TEST  L 
TERMINATE 
ADVANCE 
SPLIT 
TEST  E 
ASSIGN 
TRANSFER 
DEPL5  ASSIGN 


,  .  .1  ,  1 0 , 1 1  PH , 14P8 
2.1 .PS 
1  ,  XFLTO 
1 

1  1  , 1  ,P8 
1 + , 1 , PH 

MH1 (PHI .1 ) ,0 ,*♦2 

VSFLT1V 
1  .OCFLO 

MHt (PHI ,1 ),1 , 0EPL5 
A , GATED . PH 
. CTRL  1 

3 . MH1 ( FH1 ,7) ,P8 


INTIIALIZE  process  fn  pointer 
COPT  TO  TRANSFER  FLT  LOGIC 
ASSURE  XFER  FLT  TABLE  GETS  BUILT 
OSPLANING  PAX  AT  "GATE" 

FLT  TABLE  (MHt )  ROW  SUBSCRIPT 
MHt • PHI , 1 ) *“ 1  -“>  TABLE  END  (*+2 

DELAY  TO  1  HR  BEFORE  SCH  ARRV 

BR  FOR  ARRIVING  FLIGHTS 

FOR  GATE  LOGIC  TO  START  BOARDING 

TYPE  FLT  (1.2,3  *  DOM.COM, INT) 


CREATE  VISITORS  HERE 


TEST  E 

PB3.1.0EPL1 

TESTS  FOR  DOMESTIC  FLIGHT 

ASSIGN 

1  .DDP1F.PB 

OEPL  DOMESTIC  ROUTE  FN 

ASSIGN 

14.DBAGF.P8 

BAGS  -  DOMESTIC  FLIGHT 

TRANSFER 

. CEPL3 

TEST  FOR  COMMUTER  FLIGHT 

0EPL1 

TEST  E 

PB3.2.0EPL2 

ASSIGN 

1 .DCP1F.P8 

OEPL  COMMUTER  ROUTE  FN 

ASSIGN 

14.CBAGF.PB 

BAGS  -  commuter  flight 

TRANSFER 

, DEPL3 

DEPL2 

ASSIGN 

1 .DIP1F.PB 

OEPL  internat  route  FN 

ASSIGN 

14. 1BAGF.PB 

bags  -  international  flight 

0EPL3 

TEST  GE 

XHSSE0 1  H .  32000 ,  •A-2 

XAC  SEQUENCER  (■ 

SAVEVALUE 

SE01H.0.XH 

TO  CURB  W/GREETERS  LOGIC 

SPLIT 

1  ,  0EP25 

SPLIT 

1  .  DEP1  5 

TO  PARK  W/GREETERS  LOGIC 

SPLIT 

1  .  DEP1 7 

TO  CURB  W/0  GREETERS  LOGIC 

TRANSFER 

, 0EPL7 

'  CURB  WITH  GREETERS  LOGIC 

DEP2S 

ASSIGN 

6. 1 ,PB 

MODE  •  PARK 

ASSIGN 

8.VSFLT2V.PH 

NO.  OF  GREETERS 

TRANSFER 

. DEP16 

.  PARK  WITH  GREETERS  LOGIC 

0EP1S 

ASSIGN 

6.2.PB 

MODE  ■  PARK 

ASSIGN 

8.VJFLT3V.PH 

NO.  OF  PAX  TO  BE  GREETED 

DEP16 

TEST  E 
TERMINATE 

PH8.0, «+2 

FT  IF  NONE  (  *■ 

ADO  TO  TOTAL  MET 

MSAVEVALUE 

1+.PH1 , 5 , PH8 . MH 

ASSIGN 

10.VS0PL3V.PB 

STARTING  POINT  IN  R.N.  TABLE 

DEP12 

ASSIGN 

10+, 1 ,PB 

INCREMENT  R.N.  TABLE  POINTER 

TEST  G 

PB1 0,124, «*2 

ASSIGN 

10,1 .PB 

TURN  CORNER 

ASSIGN 

8-.FNSPPP0F.PH 

SUBTRACT  »  OF  PAX  FROM  TOTAL 

ASSIGN 

10+. 1 ,PB 

I, NCR  POINTER 

ASSIGN 

4,FN*PB14,PB 

COMPUTE  »  OF  BAGS 

(•♦2 


00441200 
0C4420C0 
00443C00 
00444C00 
00445C00 
00446000 
00447000 
00448000 
00449C00 
C0450COO 
0045 1  COO 
00452000 
00453000 
)  00454000 
00455000 
00456C00 
00456*00 
00457000 
00459000 
CO460CCO 
00461  COO 
00462000 
00463C00 
00464C00 
00465C00 
00466000 
00 J67C00 
00469000 
00469000 
00470000 
0047 1  COO 
0C472C00 
00473C00 
0C474C00 
00475000 
00476C00 
00477000 
00478000 
00479C00 
00481  COO 
00482000 
00483000 
00484000 
00485000 
00485100 
004B6C00 
00487000 
00488000 
00489000 
00490000 
0049 1  COO 
00492C00 
00493000 
00494C00 
00495C00 
00496C00 
>00497000 
0049HC00 
00499000 
00500000 
00501000 


I 

I 


A  -  3  - 1  6 


1 


ASSIGN 

10+.1.PB 

INCR  POINTER 

00502C00 

TEST  LE 

ML1(1 .PB10) . XLSGRGXL, •+4  FT  FOR  GATE  MEETING 

(•♦4) 

00503000 

ASSIGN 

1 .gregf.pb 

meet  at  gate 

00504000 

ASSIGN 

12,1 , PB 

00505C00 

TRANSFER 

, OEPI 4 

00506C00 

TEST  E 

PB4,0,*+3 

FT  FOR  NO  BAGS 

(•♦3) 

00507C00 

ASSIGN 

1 .GRELF.PB 

meet  in  lobby 

00508000 

TRANSFER 

, DEPl 4 

OO509COO 

ASSIGN 

1 .GREBF.PB 

meet  in  bag  claim 

00510000 

0EP14  TEST  G 

PH8.0,  •■*■2 

FT  IF  NEED  MORE  PARTIES 

(*♦2) 

0051 1000 

SPLIT 

1  ,  DEPl  2 

00512000 

ASSIGN 

14.0.PB 

RESET  PB1 4  FOR  LATER  USE 

00513000 

ASSIGN 

5.FNSGRPPF.PS 

»  OF  GREETERS 

00514000 

SAVEVALUE 

SE01H+, 1 .XH 

INCR  XAC  COUNTER 

00515000 

ASSIGN 

10.XHSSEQ1H.PH 

XAC  SEQUENCE  » 

00516000 

AOVANCE 

FNSDCA2F 

TO  AIRPORT 

00517000 

TRANSFER 

.ctrlo 

00518000 

• 

00519000 

•  CURB  WITH  GREETERS  LOGIC  (MEET  AT 

CURB) 

00S2O000 

* 

00521C00 

0EP17  ASSIGN 

6.1  ,PB 

MODE  >  CURB 

00522000 

ASSIGN 

8.  VSFLT4V, PH 

NO.  OF  PAX  TO  BE  MET 

00523000 

TEST  E 

PH8,0,*+2 

FT  IF  NONE 

00524000 

TERMINATE 

00525000 

MSAVE VALUE 

1+.PH1 .5.PH8.MH 

AOO  TO  TOTAL  MET 

00526000 

ASSIGN 

10.VJ0PL3V.PB 

STARTING  POINT  IN  R.N.  TABLE 

00527000 

ASSIGN 

4 , DCARO , PH 

WILL  GO  TO  CURB 

0052B000 

0EP13  ASSIGN 

10+.1 ,PB 

INCREMENT  R.N.  TABLE  pointer 

00529000 

TEST  G 

ASSIGN 

ASSIGN 

ASSIGN 

ASSIGN 

TEST  G 

SPLIT 

ASSIGN 

ASSIGN 

SAVEVALUE 

ASSIGN 

TRANSFER 

• 

•  NOTE:  ADVANCE 
OEPL7  ADVANCE 
GATE  LR 
LOGIC  S 
ASSIGN 
ASSIGN 
ASSIGN 
SAVEVALUE 
SELECT  LR 
LOGIC  S 
SPLIT 
SPLIT 
SPLIT 
TEST  E 
SAVEVALUE 
TERMINATE 
DEPL8  TEST  E 

TERMINATE 

ASSIGN 

ASSIGN 


PB1 0, 1 24 ■ 

10,1 ,PB 

8-.FNJPPP0F.PH 
10>. 1 ,PS 

4, FN«PB14,PB 
PH8.0, »*2 

1  ,  DEPl  3 
14.0. P3 

5. FNSGR°PF,PB 
SEQ1H+.1.XH 

10 , XHJSEQ1H , PH 

.ctrli 


(•♦2) 


TURN  CORNER 
SUBTRACT  *  OF  PAX  FROM  TOTAL 
I NCR  POINTER 
COMPUTE  »  OF  BAGS 
FT  IF  NEED  MORE  PARTIES  (*+2) 

RESET  PB14  FOR  LATER  USE 
NOT  USED  UNLESS  RECIRCSPARK 
INCR  XAC  COUNTER 
XAC  SEQUENCE  * 


TIME  MUST  BE  DETERMINISTIC 
3600 
0PL1G 
DPL1G 

5.MH1 (PHI ,9) ,PH 
7 . PH5 , PH 
2 ,MH9( PH5 , 3 ) , PH 
ACUNL , VSACUNV , XL 
6 PH , CHA 1 B . CHA2B 
PH6 

1 , DEPL4 
1  ,  DEPL6 
1  .DEP10 

MHS( 1,1) .O.DEPLB 
XFRXH*,MH1(PH1,11 ) , XH 


GUARD  "BAGS"  FM  SIMUL  ARRV  A/C 

GATE  NO 
LAST  MH9  ROW 
POINT  NO  OF  GATE 
MAX  PASSENGER  UNLOADING  TIME 
PICK  FREE  BAG  CLAIM  CHAIN-SWITCH 
MARK  THIS  CHAIN  IN  USE 
COPY  TO  TERMINATING  PAX 
COPY  TO  TRANSIT  PAX 
COPY  TO  transfeR-out-of-system 
FALL  THRU  if  NO  OEP  FLTS  IN  XFER 
ADO  XFER  PAX  TO  'HOLDING  XH' 


MH1 (PHI , 11 ) ,0,*+2 

B.2.PB 
13,1 ,P9 


FT  IF  NO  TPAX 

MARK  AS  TRANSFER  PAX 
PAX  IN  PARTY 


0053 1  COO 
00532C00 
00533C00 
00534C00 
00535C00 
00536000 
00537000 
00538C00 
00539000 
00540000 
00541  COO 
00542C00 
0C543C00 
00544000 
00546000 
00547000 
O054BCOO 
00540000 
00550000 
00551000 
00552  00 
00553C00 
005S4C00 
00555C00 
00556000 
00557000 
00558000 
00559000 
(•♦2)00560000 
00561  COO 
00562000 
00S63000 
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I 


ASSIGN 

SPLIT 

TERMINATE 

HELPA 

TEST  E 

ASSIGN 

ASSIGN 

TEST  E 

ASSIGN 

ASSIGN 

HELP 

TRANSFER 

DEP30  TEST  E 
ASSIGN 

0EP31  ADVANCE 
TRANSFER 
SAVEVALUE 
TEST  L 
TEST  E 
ASSIGN 
TRANSFER 
ASSIGN 
TRANSFER 
TEST  E 
ASSIGN 
TRANSFER 
ASSIGN 

DEP11  TRANSFER 

I 

0EPL6  ASSIGN 
ASSIGN 
ASSIGN 
SPLIT 
TERMINATE 
ADVANCE 
HCL°A 
ASSIGN 
TEST  E 
TERMINATE 
TRANSTER 

• 

DEP10  ASSIGN 
ASSIGN 
ASSIGN 
SPLIT 
TERMINATE 
ADVANCE 
ASSIGN 
TRANSFER 

t 

DEPL4  ASSIGN 
TEST  GE 
SAVEVALUE 
SPLIT 
SPLIT 
SPLIT 
SPLIT 
SPLIT 
ASSIGN 
TRANSFER 


5, I ,PB 

MH1 (PHI . 1 1 )  ,»+2 


TOTAL  IN  PARTY 
CREATE  TRANSFER  PAX 


00564000 

00565000 

00566000 

00567000 

00563000 

00569C00 

0057CC00 

00570100 


FORTM, t7,1 .RN5.PB3.PH5 

PB3.3.0EP30  FT  IF  INTERNATIONAL 

1.TIP1F.PB  INT  TRANSFER  PROCESS  FUNCTION 

10, V$0PL3V,PB  STARTING  POINT  IN  R.N.  TABLE 

MH1(PH1 ,7), 3, *+-5  FT  IF  INT  FLIGHT  (*+5) 

1.T0P5F.PB  ASSIGN  OOM/COM  TRANSFER  FUNCTION  00570200 

9.1.PB  '  SET  PAX  AS  NOT  TICKETED  00570200 

BAGS ,PHI, FN* PB1 4 , 4 , 3 , PB8  GENERATE  *  OF  BAGS,  MAX  RN  00571000 

,0EP31  00572000 

MH1 (PHI .7) ,3,.>4  IS  OUT  GOING  FLIGHT  I NTERNAT IQNAL00572 1 00 

1,T0P4F,P8  SKIP  IMMIO.BAGCO.CUSTO 

VSACU2V  STAGGER  PAX  OFF  A/C 

, 0EP1 1 

SAVXH.MHI (PHI ,9) ,XH  GATE  0  OF  DEP  FLT 
V$aFL4V,45.*+u  FT  IF  DEP  IN  <45  MIN  (*+6) 

MH9(  PH5 , 4 )  ,MH9 ( XHSSAVXH ,4 )  ,  »+3  FT  IF  SAME  SEC  (•■*■3) 

1 .fnstossf.pb  short-stay/same 

, DEP 1 ! 

i , fnjtdsof.pb  short-stay/di ff 

.DEP1 1 

MH91PHS.4) ,MH9(XHSSAVXH.4) ,»+3  FT  IF  SAME  SEC  (•♦3) 


1 , FNSTDLSF , PB 
■ DEP1 1 

1 . FNSTDLDF.PB 
•  PH8 


8 . 3 , PB 

13,1 .PC 
5.1  ,PB 
KH1 (PHI . 


13) , *+2 


LONG-STAY/SAME 
LONG-STAY/DI FF 


MARK  AS  TRANSIT 
pax  in  party 
total  in  party 

CREATE  TRANSIT 


PAX 


VSACU2V 
FC?TM, 17, 2, PHI 
1 , FNSTDPXF.PB 
P81 ,0, *+2 

,  PH3 


6.4.PB 

13, 1 ,PB 
5.  1  ,PB 
MH1 (PHI , 

VSACU2V 
1 .TOSDF. 
.CTRLO 


10) ,•♦2 


PB 


8.  I  ,P8 

XHSSE02H , 32000 , «+2 
SE02H.0.XH 
I  .  DEP  I B 
1  ,  DEP1  9 
1  ,  0EP22 
1  ,  DEP26 
1  ,  *•*•3 

4.8UNL0.PH 
, CTRL1 


STAGGER  PAX  OFF  AIRCRAFT 
SW.ARR  FI  T 

SELECT  A  PROCESS  FUNCTION 
FT  IF  NEVER  DEPLANED  (•+2) 


MARK  AS  TRANSFER-GUT-OF-SYSTEM 
P/»  IN  PARTY 
TOi»L  IN  PARTY 
CREATE  TRANSFERS  0.0. S. 

STAGGER  PAX  OFF  AIRCRAFT 
PROCESS  FN  FOR  T.O.O.S.  (DEPL) 


MARK  AS  TERMINATING  PAX 
XAC  SEOUENCER 

TO  CURB  W/GREETERS  LOGIC 
TO  PARK  W/GREETERS  LOGIC 
TO  CURB  W/0  GREETERS  LOGIC 
TO  PARK  W/0  GREETERS  LOGIC 
TO  ALL  OTHER  MOOES 


00572200 
00572200 
00573000 
00574000 
00575000 
00570000 
00577000 
00573000 
00579000 
09580000 
00581000 
005B2C00 
00583C00 
00584000 
00585000 
00585000 
00687000 
00533000 
00589000 
(•♦2)  00590C00 
00531 OCO 
00692000 
00593000 
005S4000 
0C595CQ0 
00596000 
00597000 
00598C00 
00599C00 
00600C00 
00601000 
( *+2 ) 00602000 
00-503000 
00604000 
00605000 
00606000 
00607000 
00603000 
(•♦2)  00609000 
0061 OCOO 
0061 1000 
00612000 
00613000 
00614000 
(•♦3)  00615000 
00616000 
00617000 
00618000 
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•  MOOES  OTHER  THAN  CURB  AND  PARK 


ASSIGN 
ASSIGN 
TEST  E 
TERMINATE 
ASSIGN 
0EPL9  ASSIGN 
TEST  G 
ASSIGN 
ASSIGN 
ASSIGN 
TEST  LE 
ASSIGN 
TRANSFER 
SPLIT 
ASSIGN 
HELPA 
ASSIGN 
HELP 
ASSIGN 
TEST  E 
TEST  E 
ASSIGN 
TRANSFER 


6.2.PB 

8, VSFLT6V , PH 
PH8 , 0  ,  *+2 


00619COO 

00620000 

ASSIGN  MODE  00621  COO 

OF  PAX  IN  MOOES  OTHER  THAN  CURB/PARK 00622 COO 


10.VSDP13V.PB 
10+.1.PB 
PB10.124.*+2 
10.1 ,P0  TURN  CORNER 

1 3, FNSPPPOF , PB  PAX  IN  PARTY 

8-.PB13.PH  SUBTRACT  FROM  TOTAL 

PH8 , 0  ,  *4-3  FT  IF  TOTAL  <*  0 

13+.PHB.PB  ADJUST  LAST  PARTY  SIZE 

,•♦2  OUT  OF  LOOP 

1.0EPL9  GO  BACK  TO  CREATE  ANOTHER 

5.PH13.PB  TOTAL  IN  PARTY 

FOR TM , 5 , 0 i PN S > PB3  PICK  GROUNO  TRANSP.  MODE 

10*. 1 ,PB  I NCR  POINTER 

BAGS, PHI , FN*PS14,4 , 3 , PB8  GEN  A  OF  BAGS,  MAX  RN 
14.0, PB  RESET  PBl 4  FOR  LATER  USE 

PB6,3,»+3  IF  RENT-A-CAR  USE  D0P1F  (■ 

PB4 , 0 , *+2  FT  IF  NO  BAGS 

1.DLP1F.PB  CHANGE  TO  LOBBY  PROC  FN 

, DEP24 


FT  IF  NONE 

STARTING  POtNT  IN  R.N.  TABLE 
INCREMENT  R.N.  TABLE  POINTER 


•  CURB  WITH  GREETERS 


0EP1B  ASSIGN  6.1 . PB 

ASSIGN  8.VSFLT 

TRANSFER  , 0EP20 


MODE  •  CURB 


00623000 
00624C00 
E  00G25C00 

R  00626C00 

(•♦2)00627000 
00628C00 
00629C00 
00630C00 
00631  COO 
00632C00 
( *+2 )  00633C00 
00634000 
00635000 
00636C00 
00637000 
00638C00 
00639C00 
♦3)  00639*00 

(*•*■2)  00640C00 
00641000' 
00642C00 
00643C00 
00644000 
00645000 
0C646C00 


8 , VSFLT2V , PH  NO.  OF  PRKING  GREETERS  PROCEEDING  TO  CURB00646100 


PARK  WITH  GREETERS 


0EP19  ASSIGN 
ASSIGN 
0EP20  TEST  E 

TERMINATE 
ASSIGN 
DEP21  ASSIGN 
TEST  G 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
HELP 
ASSIGN 
TEST  LE 
ASSIGN 
TEST  LE 
ASSIGN 
TRANSFER 
SPLIT 
TEST  HE 
TEST  E 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
SAVEVALUC 


6.2.PB 

8 ,  VSFLT3V ,PH 
PH8 , 0 , *+2 

10.VS0PL3V.PB 
10+, 1 ,PB 
PBl 0, 1 24 , •♦2 

10.1 , PB 

13. FNSPPPOF, PB 
8-.PB13.PH 

12.2. PB 
10+,  1 ,P8 


MODE  *  PARK 

NO.  OF  PAX  TO  BE  GREETED 
FT  IF  NONE 

STARTING  POINT  IN  R.N.  TABLE 
INCREMENT  R.N.  POINTER 


00647C00 

00648C00 

00649C00 

00650000 

00651000 

00652C00 

00653000 

00654000 

00655000 

00656000 


PREVENT  POINTER  FROM  EXCEEDING  1 27 ( •♦2 ) 00657000 


RESET  POINTER 
PAX  IN  PARTY 

SUBTRACT  GROUP  FROM  TOTAL 
MEET  AT  BAGCLAIM 
INCREMENT  R.N.  POINTER 


BAGS, PHI ,FN*PB14, 4,3. PB8  GEN  »  OF  SAGS.  MAX  RN 
1 0* , 1 , PB  INCREMENT  R.N.  POINTER 

MLI(I.PBIO), XLSGRGXL , *+2  FT  FOR  GATE  MEETING  (*f2) 
12.1.PB  MEET  AT  GATE 


00658000 
00659000 
00660000 
00661  COO 
00662000 
00663000 
00664C00 
00665000 
00666000 


PH8 , 0 . *+3 
13+.PH8.PB 
•  •♦2 
1  ,  DEP21 
PB3 , 3 , •♦4 
PB4 , 0 , *+3 
1 .0LP1F.PB 
12, 3, PS 
14.0.PB 
5.PB13.PB 
SE02H* , 1 , XH 


IS  LAST  PARTY  SIZE  TOO  LARGE ( •■*■3  ) 00670000 


ADJUST  LAST  PARTY  SIZE 


FT  IF  NOT  INTERNATIONAL 
FT  IF  NO  BAGS 
CHANGE  TO  LOBBY  PROC  FN 
MEET  AT  TICKETING 
RESET  PBl 4  FOR  LATER  USE 
TOTAL  IN  PARTY 
I NCR  XAC  COUNTER 


(.♦4) 

(•♦3) 


0067 1000 
00672000 
00673000 
00673C50 
00673100 
00673C00 
00673000 
00674000 
00675000 
00676000 
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ASSIGN 
TRANS  FEU 


1 0 . XHSSEQ2H , PH 
, DEP24 


«  CURB  WITHOUT  GREETERS 


DEP22  ASSIGN 
ASSIGN 
TEST  E 
TERMINATE 
ASSIGN 
0EP23  ASSIGN 
TEST  G 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
HELP 
TEST  LE 
ASSIGN 
TRANSFER 
SPLIT 
ASSIGN 
ASSIGN 
SAVEVALUE 
ASSIGN 
TRANSFER 


6  ■  1  .  P3 

8 , VSFLT4V , PH 
PH8 .0, «4 2 

10.VS0PL3V.PB 
10+, 1 ,P8 
P810, t  24 , «+2 
10,1 ,P8 

13, FNJPPPOF , PB 
8-,PB13,PH 
10+. 1 ,PB 


XAC  SEQUENCE  0 


MQOE  «  CURB 

NO.  OF  PAX  TO  BE  MET 

FT  IF  NONE 


00677000 

00678000 

00679000 

00680000 

00681000 

00682000 

00683000 

00684000 

0068SCOO 

00686000 

00687000 


STARTING  POINT  IN  R.N.  TABLE 
INCREMENT  R.N.  POINTER 
PREVENT  POINTER  FROM  EXCEEDING  1 27 ( **2 ) 00688000 

RESET  POINTER  00689000 

PAX  IN  PARTY  00690C00 

SUBTRACT  GROUP  FROM  TOTAL  00691000 

INCREMENT  R.N.  POINTER  00692000 


BAGS.PH1 ,FN*PB1 4,4,3. Pa8  GEN  F  OF  SAGS,  MAX  RN 


PH8 ,0 .  *+-3 
134-.PH8.PB 
.  «+2 
1  ,  DEP23 
14.0.P8 
5.PB13.PB 
SE02H+. 1 , XH 
10.XHSSE02H.PH 
. 0EP24 


PARK  WITHOUT  GREETERS 


0EP2B  ASSIGN 
ASSIGN 
TEST  E 
TERMINATE 
ASSIGN 
0EP27  ASSIGN 
TEST  G 
ASSIGN 
ASSIGN 
ASSIGN 
TEST  LE 
ASSIGN 
TRANSFER 
SPLIT 
ASSIGN 
ASSIGN 
HELP 
ASSIGN 
TEST  E 
ASSIGN 

• 

0EP24  ADVANCE 
TEST  NE 
TRANSFER 
UNLINK 

0EP29  GATE  lS 
ASSIGN 
ASSIGN 
LOGIC  R 
TRANSFER 
0EP20  ASSIGN 
LINK 


6.2.PB 

8.  VSFLT5V , PH 
PH8.0.4  4-2 

10.VS0PL3V.PB 
1 0> . 1 , P  8 
PB1 0 , 1 24 . «+2 
10. 1 ,PB 

IS.FNSPPPOF.PB 
J813.PH 
PHB , 0  ,  *  *3 
13*,PH8,PB 
,•+2 
1  ,  DEP27 
5.PB13.P8 
10+. 1 ,PB 


00693000 

ISLAST  PARTY  SIZE  TOO  LARGE (•♦3)00696000 

00697C00 
00698000 
00699000 
00700000 
00701  COO 
00702000 
00703000 
00704C00 
00705C00 
0070GC00 
00707000 
00708000 
00709000 
007 1 0000 
0071 1000 
00712000 
007 1 3000 


AOJUST  LAST  PARTY  SIZE 


RESET  PBl 4  FOR  LATER  USE 
TOTAL  IN  PARTY 
I NCR  XAC  COUNTER 
XAC  SEQUENCE  0 


MODE  >  PARK 

NO.  OF  PAX  TO  BE  CREATED 
FT  IF  NONE 


STARTING  POINT  IN  R.N.  TABLE 
INCREMENT  R.N.  POINTER 
PREVENT  POINTER  FROM  EXCEEDING  1 27 ( »+2 ) 0071 4000 

RESET  POINTER  00715000 

PAX  IN  PARTY  00716000 

SUBTRACT  GROUP  FROM  TOTAL  00717000 

IS  LAST  PARTY  SIZE  TOO  LARGE ( •■*•3 )  007 1 8000 


ADJUST  LAST  PARTY  SIZE 


( **2) 


TOTAL  IN  PARTY 
INCREMENT  R.N.  POINTER 

BAGS, PHI ,FN»PB14, 4,3, PB8  GEN  *  OF  BAGS.  MAX  RN 
14.0.PB  RESET  PB 1 4  FOR  LATER  USE 

PB4 , 0 , • +2  FT  IF  NO  8ACS 

1.DLP1F.PB  ■'  CHANGE  TO  L03BY  PROC  FN 


(  •♦2 ) 


STAGGER  PAX  OFF  AIRCRAFT 
FT  IF  NOT  MEETING  AT  GATE 


VSACU2V 
PB12, 1 , «>2 
.ctrlo 

GREGC , CTRL1 , 1 ■ 10PH , PHI  0, DEP28  TRY  TO  UNLINK  GREETER 
PAS3L  WAIT  FOR  INFO  FROM  GREETER 

54-.XBSPAS32.PB  AOO  GREETERS  TO  PARTY 

14.XB4PAS33.PB  PICK  UP  PARKING  LOT  NUMBER 

PAS3L  PERMIT  NEXT  USE  OF  PAS3  S'VALUES  00736000 

.CTRLO  00737000 

4.0EP29.PH  WILL  GO  TO  DEP29  WHEN  UNLINK EO  00738000 

GREGC, FIFO  WAIT  FOR  GREETERS  00739000 


00719000 

00720000 

00721000 

00722000 

00723000 

C0724C00 

00725C00 

00726C00 

00727000 

00728C00 

00729000 

00730000 

00731000 

00732000 

00733000 

00734000 

00735000 
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1 


* 

• 

ENPLO  TRANSFER 
ENPL1  TEST  E 
ASSIGN 
ASSIGN 
TRANSFER 
ASSIGN 
ASSIGN 
ASSIGN 
TRANSFER 
ENPL2  ASSIGN 
ASSIGN 
ASSIGN 
TRANSFER 
ENPL3  ASSIGN 
ASSIGN 
ASSIGN 
TRANSFER 
ENPL9  CHANGE 

TERMINi  TE 
CHNGO  TRANSFER 


NPLANING  PASSENGER  LOGIC 


, ENPL9 
PB8.4, *+4 
2 .  t  ,  PH 
1 .TOSEF.PB 
.CTRLO 
1 .EDP1F.PB 
10, VSRND2V.PB 
4 ,  FNSOBAGF , PB 
.CTRLO 
1  .ECP1F.PB 
1 0 , VSRN02V,  PB 
4,  FNSCBAGF ,  PB 
.CTRLO 
1  .EIP1F.PB 
1 0 , VSRN02V,  PB 
4, FNSIBAGF , PB 
.CTRLO 
ENPLO. CHNGO 


FN.ENP1F 


*  .  4  .  B  A 
BAGCO 


G  C  L  A  I  M 


BAGC3 


BAGC2 


BAGC1 


BAGC7 

BAGC8 


BA0C6 


TEST  G 

HELPA 

ADVANCE 

TEST  E 

UNLINK 

GATE  LR 

SAVEVALUE 

SAVEVALUE 

LOGIC  S 

TEST  NE 

TERMINATE 

ASSIGN 

ASSIGN 

TRANSFER 

ASSIGN 

LINK 

SAVEVALUE 

TEST  E 

ASSIGN 

MARK 

LINK 

ASSIGN 

SAVEVALUE 

TEST  E 

UNLINK 

GATE  LS 

ASSIGN 

ASSIGN 

LOGIC  R 

TRANSFER 


P04.O. CTRLO 

F0RTM.3.PH2.PH1 

XHJTRVXH 

PB13.0.0AGC1 

GREBC , CTRL1 , 1 ,10PH, 

PAS4L 

PAS42.PB5.XB 
PAS43.PB14.XB 
PAS4L 
PBS, 1 , *+2 

5.0.PB 

4 ,  GRTQ3 . PH 

.CTRL1 

4.BAGC3.PH 
GREBC, FIFO 

PH2+.P05.XH 

MH1 (PHI , I ) , 0.BAGC8 

4.BAGC7.PH 

PH6.FIF0 
1 1+.M1 ,PH 
PH2-.PB5.XH 
PB12.2, BAGC4 
GREBC. CTRL1 , 1 ,10PH, 
PAS4L 

5* . XBSPAS42 . PB 
14.XBJPAS43, PB 
PAS4L 
. BAGC4 


00740000 
00741000 
00742000 
00743000 
00744000 

FT  IF  TRANSFER  FROM  OUT  OF  SYS.  00745C00 
ETTR. FACI L . FOR  OUT  OF  SYS. TRANSF . 00745100 

00746000 

00747000 

ENPLANING  DOMESTIC  PASSENGERS  00748000 
GET  RANDOM  INDEX  FOR  BAG  FUNCTI0N00749C00 
NO  OF  BAGS  -  DOMESTIC  00750C00 

00752000 

ENPLANING  COMMUTER  PAX  00753C00 

GET  RANOOM  INDEX  FOR  BAG  FUNCTION00754000 
NO  OF  BAGS  -  COMMUTER  00755000 

00757C00 

ENPLANING  INTERNATIONAL  PAX  00758000 

GET  RANDOM  INDEX  FOR  BAG  FUNCTIONOO759C0O 
NO  OF  BAGS  -  INTERNATIONAL  00760000 

00762000 
00763000 
00764000 
00765000 
,  00766C00 

00767C00 
00768C00 
00769000 
00770C00 
0077 1000 
00772000 
00773000 
00774000 
00775C00 
0077GC00 
00777000 
00778000 
(•♦2)00779000 
00760000 

NO-ONE  IN  PARTY  007B1C00 

ROUTE  TO  GREETER  LEAVING  PARKING  00702000 

00783C00 
00784000 
00705000 
00786000 
00707000 
00708000 
00789000 
00  790C00 
00790100 
00791C00 
00791100 
00792000 
00793000 
00794000 
00795000 
00796000 
00797000 


RETURN  TO  CONTROL  IF  NO  BAGS 
L0C.MH1  ROW 

travel  time  to  bag  claim  area 

FT  IF  GREETER 

PH10.BAGC2  TRY  TO  UNLINK  PAX 
ONLY  ONE  AT  A  TIKE 
NUMBER  OF  GREETERS 
PARKING  LOT  NUMBER 
LET  PAX  PICK  UP  INFO 
BR  IF  MODE  IS  CURB 


WILL  GO  TO  BAGC3  WHEN  UNLINKED 


CONGESTION 

DR  IF  ALL  BAGS  AT  BAGCLAIM 


MARK  PAX  FOR  WAITING  TIME 
WAIT  FOR  BAGS  (UNLK  IN  BUNL* ) 

ADD  WAITING  TIME  TO  PH11 
CONGESTION 

FT  IF  TO  BE  GREETED  AT  BAGCLAIM 
PH10.BAGC5  try  TO  UNLINK  GREETER 
WAIT  FOR  INFO  FROM  GREETER 
ADO  GREETERS  TO  PARTY 
PICK  UP  PARKING  LOT  NUMBER 
PERMIT  NEXT  USE  OF  PAS4  S' VALUES  00798000 

00799000 

00800000 
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BAGC5 

ASSIGN 

4 ,  BAGC6 , PH 

WILL  GO  TO  BAGC6  WEN  UNLINKED 

00801  COO 

LINK 

grebc.fifo 

00802000 

• 

00803C00 

BA0C4 

TRANSFER 

.CTRLO 

00804000 

« 

00805CO0 

• 

00803C90 

A  G  Q  A  G  E 

U  N  L  0  A  D  I  N 

G  LOGIC 

00B07C00 

• 

OOSOSCOO 

BUNCO 

PRIORITY 

5. BUFFER 

ALLOW  PAX  XAC  TO  EXECUTE  'BAGS* 

00809C00 

SPLIT 

1  .'*+2,  .9PH.40PB 

(*♦2) 

0081 OCOO 

TERMINATE 

0081 1  COO 

HELP  A 

FORTM.2, 10 

BAGGAGE  UNLOADING  LOGIC 

00012000 

ASSIGN 

5.MH1 (PHI ,8) ,PH 

A/C  TYPE 

0081 3000 

ASSIGN 

5. FNSBUN1 F , PH 

UNLOAD  TIME  FUN  F(A/C  TYPE) 

00814000 

LOGIC  R 

OPL1G 

00815000 

* 

0081 7000 

ADVANCE 

FN*PH5 

BAGGAGE  UNLOADING  TIME 

00819000 

* 

00320000 

ASSIGN 

5 , VSBUN4V , PH 

BAGCLAIM  INDEX  +  AREA  NO 

0082 1000 

ASSIGN 

5 . MH9( PH5 , 3 ) ,PH 

POINT  NO  OF  BAG  CLAIM 

00B22C00 

ASSIGN 

4.40, PH 

LOOP  COUNTER 

00823000 

BUNC2 

TEST  G 

PB«PH4.0.BUNL3 

8R  IF  ALL  BAGS  UNLOADED 

00824000 

ADVANCE 

30 

BAG  UNLOADING  TIME  AT  BAGCLAIM. 

00825000 

UNLINK  LE 

PH6.CTRL1 , ALL.3PH, 

PB*PH4  BAGS  TO  WAITING  PAX 

00326000 

LOOP 

4 PH, BUN L2 

00627000 

BUN  13 

LOGIC  R 

PH6 

FREE  CHAIN/SWITCH  PAIR 

00828000 

MSAVE VALUE 

1 .PHI . 1 ,2,MH 

MARK  ALL  BAGS  AT  CLAIM  AREA 

00829000 

TERMINATE 

00830C00 

* 

00331000 

• 

C0832000 

•..♦T  1 

:  C  K  £  T  I 

N  G  a  C  H  E  C 

K  I  N 

00833000 

* 

00834000 

CHEKO 

TEST  E 

ttVSCHKIB.1 .CTRLO 

BR  IF  ENPL ,  TICKETED  AND  DIRECT 

00835C00 

HELPA 

FORTM ,13. PH2 ,MH1 ( PHI , 3 ) , PB9, RN4 , PB 1  3  LOC, AIRLINE. 

00836000 

• 

TICKETED. EXPCHK  RN,#  PAX 

00837C00 

ADVANCE 

XHSTRVXH 

00838000 

TEST  E 

PBI3.0.CHEK9 

FT  IF  GREETER 

00839000 

UNLINK 

GRELC.CTRLt , 1 ,10PH 

,PH10, CHEIO  TRY  TO  UNLINK  PAX 

C0840C00 

CHE11 

GATE  LR 

PAS2L 

ONLY  ONE  AT  A  TIME 

00841000 

SAVEVALUE 

PAS22.P0S.XB 

NUM8ER  OF  GREETERS 

00842000 

SAVEVALUE 

PAS23.PB14.XB 

PARKING  LOT  NUMBER 

00843000 

LOGIC  S 

PAS2L 

LET  PAX  PICK  UP  INFO 

00844000 

TEST  NE 

PB6.1 ,«+2 

BR  IF  MOOE  IS  CURB  ( '+2 ) OOB45COO 

TERMINATE 

00846000 

ASSIGN 

5.0.PB 

NO-ONE  IN  PARTY 

00847C00 

ASSIGN 

4 , GRT03 , PH 

ROUTE  TO  GREETER  LEAVING  PARKING 

00848000 

TRANSFER 

.ctrli 

00849000 

• 

0C850C00 

CHEIO 

ASSIGN 

4 .  CHE  11 . PH 

..  WILL  GO  TO  CHE  1  1  WHEN  UNLINKED 

00651000 

LINK 

GRELC .FIFO 

00C52C00 

• 

00853000 

CHEK9 

TEST  E 

PB1 2 , 3 , CHEK8 

FT  IF  TO  BE  GREETED  AT  TICKETING 

00854C00 

UNLINK 

GRELC, CTRLI , 1 , 10PH 

.PH10.CHEK7  TRY  TO  UNLINK  GREETER 

00855000 

CHEKO 

GATE  LS 

PAS2L 

WAIT  FOR  INFO  FROM  GREETER 

00856000 

ASSIGN 

5+.XBSPAS22.PB 

ADD  GREETERS  TO  PARTY 

00857000 

ASSIGN 

1 4 , XBSPAS23 , PB 

PICK  UP  PARKING  LOT  NUMBER 

00858000 

LOGIC  R 

PAS2L 

PERMIT  NEXT  USE  OF  PAS2  S'VALUES 

00859000 

TRANSFER 

.CTRLO 

00860000 

• 

00861000 

CHEN  7 

ASSIGN 

4.CHEKB, PH 

WILL  GO  TO  CHEKO  WHEN  UNLINKED 

00862000 

LINK 

GRELC, FIFO 

00863000 
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• 

CHEK6  TEST  NE 

pbb.i.ctrlo 

BR  IF  TERMINATING 

00864C00 

00865000 

SAVEVALUE 

PH24.PB5.XH 

CONGESTION 

00866000 

« 

• 

• 

CHEK1  QUEUE 

PH5.PB5 

wait  for  free  SEVER 

00867000 

00868000 

00869000 

00870000 

MARK 

MARK  PAX  FOR  WAITING  TIME 

00870100 

ENTER 

PHS 

SERVICE 

00871000 

DEPART 

PH6 , PBS 

00872000 

ASSIGN 

1 14, Mi , PH 

ADD  WAITING  TIME  TO  PHT1 

00872100 

TRANSFER 

,  PH4 

BR  TO  CHEK2  OR  CHEK3 ; SET  IN  FORT 

.00873000 

CHEK2  AOVANCE 

VSCHK1V 

CHECKIN  TIME  FOR  TICKETED  PAX 

00874000 

LEAVE 

PH5 

SERVICE 

00875000 

SAVEVALUE 

PH2-.PB5.XH 

CONGESTION 

00876000 

TEST  E 

MH1 ( PHI ,3),1 ,*43 

00876100 

SAVEVALUE 

EALXH4.P813.XH 

00876200 

TRANSFER 

.CHE12 

00876200 

TEST  E 

MH1 (PHI ,3) ,8, *43 

00876400 

SAVEVALUE 

AMAXH4 , PB1 3 , XH 

00876500 

TRANSFER 

, CHET  2 

00876600 

TEST  E 

MH1 (PHI .3), 6. *42 

00876700 

SAVEVALUE 

UNTXH4.PB13.XH 

00876e00 

CHE12  TRANSFER 

•CTRLO 

00877C00 

CHEK3  SAVEVALUE 

CHKXH.MHt (PHI ,3) ,XH 

00678000 

AOVANCE 

FNSATK1F  TICKET/ CHECK IN  TIME 

00878100 

LEAVE 

PHS 

00880000 

SAVEVALUE 

PH2-.PBS.XH 

CONGESTION 

00881000 

MSAVE VALUE 

134,v$TCKTN,1,PB5.««H 

00881100 

TRANSFER 

.ctrlo 

00B82000 

• 

•...I  M  M  I  G  R  A 

T  I  0  N 

00882020 

00882040 

• 

•IMMIO  HELPA 

FORTM, 8 , PH2.MH1 (PHI . 

9)  PT.  NO., GATE  NO. 

00882060 

00882080 

AOVANCE 

XHSTRVXH 

00882100 

SAVEVALUE 

PH24.PB5.XH 

CONGESTION 

00882 ’20 

GATE  SNF 

PH5.IMMI1 

00382140 

ENTER 

PHS 

SERVICE 

00882'60 

TRANSFER 

, IMMI2 

00882*80 

IMMI1  QUEUE 

PHS , PB5 

SERVICE 

00882200 

ENTER 

PHS 

00882220 

DEPART 

PH5.PB5 

00382240 

tMMt2  ADVANCE 

VS1MM1V 

IMMIGRATION  PROCESS  TIME 

00682260 

LEAVE 

PH5 

00882280 

SAVEVALUE 

PH2-.PB5.XH 

CONGESTION 

00882200 

SAVEVALUE 

IMIG4.PBT3.XH 

00882210 

TRANSFER 

.CTRLO 

00882220 

• 

*...C  U  S  T  0  M  S 

• 

0CB82400 

00882420 

00882440 

•CUSTO  HELPA 

FORTM , 4 , PH2 . PH8 

L0C.MH9  ROW 

00882460 

AOVANCE 

XHSTRVXH 

00882480 

SAVEVALUE 

PH24.PB5.XH 

CONGESTION 

00882600 

CUST3  GATE  SNF 

PH5.CUST2 

00682620 

ENTER 

PHS 

00882540 

TRANSFER 

.CU5T4 

00882560 

CUST2  QUEUE 

PH5.PB5 

00832580 

ENTER 

PHS 

00882C00 

DEPART 

PHS , PBS 

00882620 

CUST4  AOVANCE 

VSCUSTV 

CUSTOMS  PROCESS  TIME 

00882640 

LEAVE 

PH5 

SERVICE 

00882660 
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SAVEVALUE 
SAVE V  A LUE 
TRANSFER 


PH2-.P8S.XH 

CSTM+.PB13.XH 

.CTRLO 


CONGESTION 


*...C  0  N  C  0  U  R 

• 

CNCRO  HELPA 

AOVANCE 

MSAVEVALUE 

SAVEVALUE 

TRANSFER 


.0  E  P  L  A  N  I 

• 

OCARO  AOVANCE 

SAVEVALUE 
DCAR1  SAVEVALUE 
HELPA 
TEST  N£ 
ASSIGN 
ASSIGN 
ASSIGN 
TEST  NE 
ASSIGN 
TRANSFER 

* 

OCARD  ASSIGN 
ASSIGN 
ASSIGN 
TEST  NE 
ASSIGN 
0CAR8  ASSIGN 
TEST  NE 
TEST  NE 

• 

ASSIGN 
ASSIGN 
QUEUE 
TEST  E 

« 

OEPART 
TEST  E 

• 

SAVEVALUE 
SAVEVALUE 
TRANSFER 
OCARC  SAVEVALUE 

• 

SAVEVALUE 
SAVEVALUE 
AOVANCE 
TEST  NE 
TEST  E 

• 

TRANSFER 
TEST  E 

transfer 

DCARA  SAVEVALUE 


SE  EXIT  -  TERMINATING  PAX 

F0RTM,?.5,PH2,MH*(!'H1  .9)  LOC  .  GATE 

XHSTRVXH  WALKING  TM  TO  CONCOURSE  FROM  GATE 

1  14..PH5, 1 .PBS.MH  NO  OF  PAX  LEAVING  CONCOURSE 


00BB2E80 

00382690 

00882700 

00885C00 

00886C00 

00887000 

00888000 

00889000 

0C890000 

00891000 


CONXH+ , PBS , XH  DUMMY  TO  KEEP  FUNCT  1  FOR  MNLINK  HAPPY  00895000 


.CTRLO 


CURS  (CARS) 


FNSDCAIF  ARRIVAL  DISTRIBUTION  for  cars 

ARCXH+, 1 ,XH  COUNT  OF  VEH  ON  ARRIVING  ROAO 

DEPXH+. 1 . XH 

FORTM. 10.MH1 (PHI ,3 ) .PHt ,PB4,0  A I RL INE . FLT , »  OF  BAGS 
P84.0. OCARO  CAU  THROUGH  IF  DEPL 

8.  VSOBC'KO.PH  1  LESS  i,.AN  1ST  DEPL  CURB  STO  NO 
4.PHB.PH  SAVE  CURS  STO  NO  MINUS  1 


00893000 
00894000 
00895000 
00896000 
00897000 
00898000 
00899000 
C0899’00 
00900000 
00901000 
00901100 
00901 <05 


5.VJ0PCD8.PH  1  LESS  THN  1ST  D8L  PRKING  STO  NO  FOR  DEPL00901110 


P81 0 , 4 . DC ARB 
8  .  VSDEPLS . PH 
, DC ARB 

8.VSD8PK1 .PH 


IF  CIR  V£H .  TRANSFER  TO  DCARB 
1  LESS  THAN  CORRESPONDING  STO  NO 

GOING  TO  ENPLANING  SECTION 
1  LESS  THAN  ENPL  CURB  STO  NO 


4.PH8.PH  SAVE  CURB  STO  NO  MINUS  I 


5 . VSEPC08 , PH 
PS 10. 4, DCARB 
8.VSENPLS.PH 
8+ . 1 , PH 

PB10.4, **2 


OBL  PARKING  STO  NO  FOR  ENPL 
IF  CIP  VEH.  TRANSFER  TO  DCARB 


00901 120 
00901 >40 
00901 <50 
0090 1 155 
0090 1 160 
G0°01 163 
00901 <65 
00301 170 


1  LESS  THAN  CORRESPONDING  ENPL  STO  NO  00901300 


8+ ,  1  ,  PH  INCREMENT  STO  NO  00902020 

PB1 0 , 4 , »*2  IF  CIR  VEH,  SKIP  NEXT  TEST  00502030 

PH6 , PH8 , OCAR A  IF  STO  HO  SAME  AS  DESTINATION  00902040 

STO  NO,  CO  TO  CCARA  00902C50 

44,1, PH  INCREMENT  CURB  STO  NO  00902C51 

5*,1,PH  INCREMENT  OBL  PARKING  STO  NO  00902C55 

PI  14  ENTER  QUEUE  for  BLOCKED  LANE  00902C57 

BVSLNFLD. 0  STOP  TRAFFIC  IF  DBL  PRKING  B  NO  OF  PASSING00902060 
LANES  AVAILABLE  IS  1  009C2070 

PH4  DEPART  OUEUE  FOR  BLOCKED  LANE  00902C75 

S-PH5 , 0 , DCARC  FT  IF  CURRENT  CONTENTS  OF  DBL  PARK  C0902C80 

STO  IS  Zb»0  00902C90 

NOLAN, VSNLNMX.XH  SET  NO  OF  PASSING  LANES  TO  MAX  AVAI L00902 < 00 


TOTLt 4- ,  1 ,  XH  SAVE  COUNT 

,  *4-3 

NOLAN. VSNLNM1 ,XH  SET  NO  OF  PASSING  LANES  TO  1  LESS 
THAN  MAX  AVAILABLE 
T0TL2+.1.XH  SAVE  C0UNt 

T0TL3+, VSLNOLY.XH  SAVE  TIME 

VSLNOLY  delay  VEH  ACCORDING  to  NO  OF  LANES  AVAIL 


PB4, 0,443 
BVSCIRVD .0 .OCARA 

.DCARB 

BVSCIRVH.O, OCARA 

.OCARB 
A0PLC4-,  1  ,XH 


FALL  THROUGH  IF  DEPL 
IF  CIR  VEH  IS  AT  LAST 
DEPL  STO,  TRANSFER  TO  OCARA 
MOVE  TO  NEXT  DEPL  STO 
IF  CIR  VEH  IS  AT  LAST 
ENPL  STO,  TRANSFER  TO  DCARA 
MOVE  TO  NEXT  ENPL  STO 
COUNT  OF  VEH.  ON  DEPL.  CURB 


00902110 
00902  20 
00902 <30 
00902*40 
00902*50 
00902*60 
00902170 
00902175 
0C902180 
00902190 
00902200 
00902204 
00902206 
00902208 
00902210 
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ASSIGN 

8,  VSTMOOV ,PH 

FOR  TIME  LIMIT  ENFORCEMENT 

00902C20 

TEST  G 

PBtO, 1 , OCARS 

BR  TO  ENTER  CURB  SLOT 

00903C00 

TEST  G 

P81 0 ,2 , 0CAR4 

BR  TO  r  ITER  DP  SLOT 

00904000 

TEST  G 

PB1 0 , 3 , *+3 

BR  TO  ENTER  QUEUE  SLOT  (*+3) 

0090SC00 

ASSIGN 

4.CIRC0 , PH 

SEND  TO  RECIRCULATION  ROAO 

00906000 

TRANSFER 

.CTRL1 

00907000 

ENTER 

PH6 

00908000 

PRIORITY 

12 

TO  ASSURE  PRIORITY  FOR  DP  SLOT 

00909000 

ASSIGN 

5.RN2.PH 

00910000 

LINK 

PH6.5PH 

LINK  ON  QUEUE  IN  RANDOM  ORDER 

00911000 

* 

00912000 

DCAR2 

LEAVE 

PH6 

LEAVE  DP  STORAGE 

00913000 

UNLINK 

VSOPDQV , 0CAR3. 1 

UNLINK  1  FROM  CORR.  QUEUE  CHAIN 

00914000 

ASSIGN 

6.VS0P0CV ,PH 

CHANGE  PH6  TO  CURB  STORE  # 

00915000 

ASSIGN 

10,1 ,PB 

NOW  AT  CURB 

00916000 

PRIORITY 

10 

DROP  TO  NORMAL  PRIORITY 

00917000 

ENTER 

PH6 

ENTER  CURB  STORE 

009I8C00 

ASSIGN 

5 . RH2 , PH 

00919090 

LINK 

DPL1C.5PH 

RELINK  IN  RANDOM  OROER 

00920000 

* 

00921C00 

DCAR3 

TEST  E 

PB7 ,0 , ENPC8 

BR  IF  VEH  UNLINKED  IS  ENPLANING 

00922000 

LEAVE 

PH6 

LEAVE  OUEUE  STORAGE 

00923000 

ASSIGN 

6.  VSDPOOV.PH 

CHANGE  PHo  TO  OP  STORE  » 

00924C00 

ASSIGN 

10.2.PB 

NOW  USING  DP 

00925000 

0CAR4 

PRIORITY 

1  1 

SET  OP  PRIORITY 

00926000 

OCARS 

ENTER 

PH6 

CURB  OR  DP  STORE 

00927000 

UNLINK  E 

0PL2C.CTRL1  . 1 ,10PH,PH10.**2  MATCH  CAR  WITH  PAX  (*■*•2)00928000 

TRANSFER 

,  0PLC9 

00929000 

ASSIGN 

5.RN2.PH 

00930000 

LINK 

0PL1C.5PH 

LINK  IN  RANDOM  ORDER 

09931000 

* 

00932C00 

•...TIME  LIMIT  ENFORCEMENT 

00933C00 

« 

00934000 

GENERATE 

, , ,1 .9.2PH 

•POLICE  OFFICER* 

00935000 

0CAR6 

aovance 

VSDENFV 

FREQUENCY  OF  ENFORCEMENT 

00936000 

UNLINK 

OPL 1 C , OCARS , ALL , 

BVSOLIMB  UNLINK  ANY  VEHICLES  WHICH 

00937C00 

• 

HAVE  BEEN  DOUBLE-PARKED  LONGER 

00938000 

• 

THAN  LIMIT 

00939000 

ASSIGN 

1 , MH8 (12>1), PH 

#  OF  DEPLANING  CURBS 

00940000 

ASSIGN 

1  ♦ ,  MH8  (8.1)  ,  PH 

ADD  »  OF  ENPLANING  CURBS 

00941000 

ASSIGN 

2.DP0CS 

FIRST  QUEUE  CHAIN 

00942C00 

DCAR7 

UNLINK 

PH2,0CAR9,ALL.BV$0LIMB  UNLINK  ANY  VEHICLES  IN  QUEUE 

00943000 

• 

LONGER  THAN  LIMIT 

00944000 

ASSIGN 

2* , 1 , PH 

00945C00 

LOOP 

1PH.DCAR7 

00946C00 

TRANSFER 

.DC ARB 

00947C00 

DCAR0 

UNLINK 

VSOPDQV, 0CAR3.1 

UNLINK  1  FROM  CORR.  QUEUE  CHAIN 

00948000 

0CAR9 

LEAVE 

PH6 

DP  OR  QUEUE  STORAGE 

00949C00 

PRIORITY 

10 

DROP  TO  NORMAL  priority 

00950000 

TEST  E 

PBT, 1 , •♦2 

IF  ENPLANING,  FALL  THROUGH 

00950000 

ASSIGN 

1 1  +  .M1 ,PH 

ADD  WAITING  TIME  TO  PH11 

00950600 

TEST  E 

PB7.0.CIRC1 

BR  IF  UNLINKED  VEH  IS  ENPLANING 

0095 ICOO 

TRANSFER 

.CIRCO 

RECIRCULATE 

00952000 

• 

00953000 

• 

00954000 

•• • .0  1 

E  P  L  A  N  I 

N  G  CURB 

(  P  A  X  ) 

00955000 

• 

00956000 

OP  ICO 

HELPA 

FORTM, 9, PH2 , PB1 1 

.PH7.PH1  LOC, FACTYP.MH9R0W.MH1R0W 

00957000 

AOVANCE 

XHSTRVXH 

00958000 

• 

SAVEVALUE 

PH2*. PB5 , XH 

CONGESTION 

00959000 

TRANSFER 

FN.0PL1F 

BRANCH  BY  TRANSP  MODE 

00960000 
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PRIVATE  CAR 

DPLC3 

UNLINK  E 

0PL1C.DPLC9, 1 . 

transfer 

.DPLC1 

UNLINK  E 

DPL3C , DPCG2 , 1  . 

TRANSFER 

, DPCG1 

0PLC1 

GATE  LS 

PASSL 

ASSIGN 

6 , XHSPASS 1 , PH 

ASSIGN 

10, Xa$PASS2,PB 

LOGIC  R 

PASSL 

ADVANCE 

VSDPL1 V 

TEST  E 

PB1 0 , 1 , DPLC7 

SAVEVALUE 

MARK 

tmpxf.vsopcov,: 

ADVANCE 

VSDPL2V 

ASSIGN 

1 1+.M1 , PH 

LEAVE 

PH6 

UNLINK  e 

DPL1C.0CAR2.1  ,1 

TRANSFER 

, DPLC8 

DPLC7 

LEAVE 

PH6 

UNLINK 

VSDPDQV , DCAR3 , 

SAVEVALUE 

PH2-.P85.XH 

DPLC8 

SAVEVALUE 

DRDXH+ , 1 , XH 

TRANSFER 

.CTRLO 

DPLC2 

ASSIGN 

4.DPLC1 ,PH 

LINK 

DPL2C .FIFO 

0PLC9 

GATE  LR 

PASSL 

SAVEVALUE 

PASS1 , PH6 , XH 

SAVEVALUE 

PASS2.P01O.XB 

LOGIC  S 
TERMINATE 

PASSL 

410, .+2  MATCH  PAX  WITH  CAR 
BR  IF  MATCH  SUCCESSFUL 
HI0.DPLC2  MATCH  WITH  GREETER 
BR  IF  MATCH  SUCCESSFUL 
WAIT  FOR  CAR  LOCATION  INFO 
PICK  UP. . . 

CAR  LOCATION  INFO 


LOADING  TIME 

FT  IF  LEAVING  CURB 

INDIRECT  AODR.  USING  VARIABLE 

MARK  PAX  FOR  WAITING  TIKE 

RANDOM  PULLOUT  DELAY 

ADO  WAITING  TIME  TO  PH11 


PH6' 


1  UNLINK  1  FROM 
iCORR.  DP  STORE 


CHAIN  WITH 


UNLINK  1  FROM  CORR.  QUEUE  CHAIN 
CONGESTION 

COUNT  OF  VEH  ON  DEPARTING  ROAD 


PAX  WAITING  FOR  CARS 


ONLY 

PASS 

INFO 


ONE  CAR  AT  A 
CAR  LOCATION 
TO  PASSENGER 


TIME 

XAC 


BUS/L1MO  -  PAX 


0PLC4 


SAVEVALUE 

SAVEVALUE 

TRANSFER 


TAXI 


0PLC5 


AOVANCE 

SAVEVALUE 

SAVEVALUE 

TRANSFER 


DPCXH+ , 1 ,XH 
PH2-*-,P05,XH 
•CTRLO 


VSOPL1 V 
PH2-,P05,XH 
DRDXH+, 1 ,XH 
.CTRLO 


deplaning  PAX 

CONGESTION 


WAITING  ON 


LOADING  TIME 
CONGESTION 
COUNT  OF  VEH 


ON  DEPARTING  ROAD 


BUS/I IMO  -  VEHICLE 


DPLC6 


SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

TERMINATE 


ARDXH*. 1 ,XH 
PH2-,P85.XH 
OPCXH , 0 . XH 
DRO /.H+ .  1  ,  XH 


COUNT  OF  VEH  ON  ARRIVING  ROAD 
CONGESTION 

REMOVE  PAX  WAITING  FOR  3US/LIMO 
COUNT  OF  VEH  ON  DEPARTING  ROAD 


•  DEPLANING  CURB  GREETERS  (AFTER  RECIRCULATE  AND  PARK) 

OPCGO  HELPA  FORTM, «0,MH1 f PHt ,3) .RH1 ,PB4, 1  A/L.FLT.#  OF  BAGS, GREET 


00961000 
00962000 
00963000 
(•+2)  00964000 
00965000 
00966C00 
00967000 
00968C00 
00969000 
00970000 
0097 1  COO 
00972000 
00973000 
00974000 
00974’ 00 
0C975000 
00975’00 
00976000 
00977000 
00978000 
00979000 
00980000 
00981000 
00982000 
00983000 
00984000 
0098S000 
00986000 
00987000 
00988000 
C0989C00 
00990C00 
00991  COO 
00992000 
00993C00 
00994000 
00995000 
00996000 
00997000 
BUS/LIMO00998C0O 
00999000 
OtOOOCOO 
01001000 
0  1 002C00 
01003000 
0I004C00 
0 1 005000 
01006000 
0 1 C07C00 
01C06COO 
01009000 
OIOIOCOO 

oioi icoo 

01012C00 
Old  3000 
01014C00 

oioi seoo 
01016000 
01017000 
OIOIOCOO 
01019000 
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ADVANCE 

XHSTRVXH 

01020C00 

SAVEVALUE 

PH2+.PB5.XH 

CONGESTION 

01021000 

UNLINK  £ 

0PL2C ■ 0PCG1 , 1 , 10PH 

,  PHI  0.  *t-2  MATCH  PAX  AT  CURB 

01022000 

transfer 

, DPCG2 

BR  IF  SUCCESSFUL 

01023000 

* 

LINK 

DPL3C.FIF0 

OTHERWISE  LINK  TO  SPECIAL 

CHAIN  01024000 
01025C00 

DPCG1 

GATE  LS 

PAS5L 

WAIT  FOR  INFO  FROM  GREETER 

01026000 

ASSIGN 

5-t-.XBSPAS52.PB 

ADO  GREETERS  TO  PARTY 

01027000 

ASSIGN 

14. X8SPAS53.PS 

PICK  UP  PARKING  lot  number 

01028000 

LOGIC  R 

PASSL 

PERMIT  NEXT  USE  OF  PaS5  S' 

VALUES  01029000 

ASSIGN 

6.2.PB 

CHANGE  MODE  TO  PARKING 

01030000 

ASSIGN 

2.1 .PB 

PROC.  fn.  POINTER 

01031000 

« 

ASSIGN 

transfer 

1 .GRCPF.PB 
.CTRLO 

NEW  PROC.  FN. 

0 1 032000 
01033C00 
01034000 

DPCG2 

GATE  LR 

PAS5L 

ONLV  ONE  AT  A  TIME 

01035000 

SAVEVALUE 

PASS2.PB5.XB 

NUMBER  OF  GREETERS 

01036000 

SAVEVALUE 

PAS53.PB14.XB 

PARKING  LOT  NUMBER 

01037000 

* 

* 

LOGIC  S 
TERMINATE 

PASSL 

LET  PAX  PICK  UP  INFO 

01038C00 

01039000 

01040000 

01041000 

*...E  N  P  L  A  N  I 
• 

*  PVTCAR/TAXI 

• 

N  G  CURB 

01042000 

01043000 

01044000 

01045000 

ENPCO 

SAVEVALUE 

AROXH+. 1 ,XH 

COUNT  OF  VEH  ON  ARRIVING  ROAD  0104G000 

ENPCR  SAVE VALUE 
HELOA 
ASSIGN 
ASSIGN 
ASSIGN 
TEST  NE 
ASSIGN 
ENPCA  ASSIGN 
TEST  NE 
TEST  NE 
ASSIGN 
ASSIGN 
QUEUE 
MARK 
TEST  E 
ASSIGN 

• 

DEPART 
TEST  E 

» 

SAVEVALUE 
SAVEVALUE 
TRANSFER 
ENPCB  SAVEVALUE 

• 

SAVEVALUE 

SAVEVALUE 

MARK 

ADVANCE 

ASSIGN 

TEST  E 

• 

TRANSFER 
ENPC1  SAVEVALUE 


ENPXH+ , 1 , XH  0 1 046 1 00 

FORTM. 1 1 ,MH1 (PHI ,3)  .PB6  AIRLINE. MODE  01047000 

a.VSOQPKI.PH  1  LESS  THAN  1ST  ENPL  CURB  STC  NO  01047003 

4. PHB.PH  SAVE  CURB  STO  NO  MINUS  1  01047004 

5 .  VSEPCC8 , PH  1  LESS  THN  1ST  DBL  PRKING  STO  NO  FOR  ENPL01047C0G 


PB1 0.4. ENPCA 


IF  CIR  VEH,  TRANSFER  TO  ENPCA 
8 , VSENPL5 . PH  1  LESS  THN  CORR  1ST  ENPL  STO  NO 
8* , 1 , PH 
PB10.4. •♦2 


0  I  047009 
0 1 0470 1 2 

INCREMENT  ENPL  STO  NO  01047020 

IF  CIR  VEH  SKIP  NEXT  TEST  01047030 

PH6.PM8.ENPC1  IS  ENPL  STO  NO  SAME  AS  DESTINATION  STO  N01047C40 
4+.1.PM  INCREMENT  ENPL  CURB  STO  NO  01047043 

5+.1.PH  INCREMENT  ENPL  DBL  PRKING  STO  NO  01047045 

PH4  ENTER  QUEUE  FOR  BLOCKED  LANE  01047C47 

MARK  PAX  FOR  WAITING  TIME  01047048 

BVSLNFUL.O  STOP  TRAFFIC  IF  DBL  PRKING  A  NO  OF  PASSINGO 1 047050 
11+.M1.PH  ADD  WAITING  TIME  TO  PH11  01047055 

LANES  AVAILABLE  IS  1  01047060 

PH4  LEAVE  QUEUE  for  BLOCKED  LANE  01047C65 

S*PH5,0, ENPCB  IF  CURRENT  CONTENTS  OF  DBL  PARKING  ST001047C70 
IS  ZERO  FALL  THROUGH  01047080 

NOLAN, VSNLNMX.XH  SET  NO  OF  PASSING  LANES  TO  MAX  AVAIL  01047C90 


TOT  L4> , 1 , XH 
,*+3 

NOLAN, VSNLNM1 .XH 

T0TL5+. 1 , XH 
T0TL6+ , VSLNOLV, XH 


SAVE  COUNT 

SET  NO  OF  PASSING  LANES  TO  1 
THAN  MAX  AVAILABLE 
SAVE  COUNT 
SAVE  TIME 

MARK  PAX  FOR  WAITING  TIME 


LESS 


01047100 
01047110 
01047*20 
01047130 
01047140 
01047150 
0 1 047 1 S5 


VSLNOLV  DELAV  VEH  ACCORDING  TO  NO  OF  LANES  AVAILABLE  01047160 


1 1+.M1 ,PH 
BVSCIRVH, 0 , ENPC1 

.ENPCA 
AENPC+,1 , XH 


ADD  WAITING  TIME  TO  PH11  01047165 

IF  CIR  VEH  IS  AT  LAST  ENPL  CUR  STO  01047170 
TRANSFER  TO  ENPC1  01047180 

MOVE  TO  NEXT  ENPL  STO  NO  01047190 

COUNT  OF  VEH  ON  ENPL  CURB  01048000 
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ENPC8 


ENPC4 

ENPC5 


ASSIGN 

TEST  G 

TEST  G 

TEST  G 

ASSIGN 

TRANSFER 

ENTER 

PRIORITY 

ASSIGN 

MARK 

LINK 

TEST  E 

ASSIGN 

LEAVE 

ASSIGN 

ASSIGN 

TEST  E 

ASSIGN 

ASSIGN 

PRIORITY 

r“TER 

ADVANCE 

spli  r 

TEST  E 

TUANS  FER 

ADVANCE 

TRANSFER 

ADVANCE 

TEST  E 

SAVEVALUE 

ADVANCE 

LEAVE 

UNLINK 

TRANSFER 

LEAVE 

UNLINK 

SAVEVALUE 

TEST  E 

TERMINATE 

HELPA 

ADVANCE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

TERMINATE 


•  BUS/ L IMO 
( 

ENPC2  HELPA 
ASSIGN 
LINK 

ENPC3  TRANSFER 


ENPC7 

ENPC9 


8 ,  VSTKODV , PH 
PBtO, 1 , ENPC5 
PB1 0,2 , ENPC4 
PB1  0,3, **3 

4, CIRC1 ,PH 
.CTRL1 

PH6 

12 

5 ,  RN2 , PH 

PH6.5PH 

PB7 , 1 , DCAR3 
1 1  * ,  Ml ,PH 
PH6 

6, V$EP(JCV,PH 
10,* ,P8 
R«PH6 , 0 , ENPCS 
6.V5DPCDV.PH 
10.2.PB 

1  1 
PH6 

VSENP1 V 

1  ,*+5 

PB9.0, «*3 

,XH$CR0XH,*+2,**1 

FNSCSCKF 

.CTRLO 

FNSENP3F 

P310, 1 , ENPC7 

TMPXF. VSOPCOV.XF 

VSDPL2V 

PH5 

VSEPCOV.ENPCB.I 

.  ENPC9 

PHS 

V$0?00V,ENPC8,1 
DRDXH+, 1 , XH 

PB5.PB13, *+2 


FOR  TIME  LIMIT  ENFORCEMENT 
BR  TO  ENTER  CURB  SLOT 
BR  TO  ENTER  OP  SLOT 
BR  TO  ENTER  QUEUE  SLOT 
SEND  TO  RECIRCULATION  ROAO 


TO  ASSURE  PRIORITY  FOR  OP  SLOT 

MARK  PAX  FOR  WAITING  TIME 
LINK  ON  QUEUE  IN  RANOOM  ORDER 

BR  IF  VEH  UNLINKED  IS  DEPLANING 

ADO  WAITING  TIME  TO  PH11 

LEAVE  QUEUE  STORAGE 

CHANGE  PH6  TO  CURB  STORE  0 

USING  CURB 

FT  IF  STORAGE  FILLED 

CHANGE  PH6  TO  DP  STORE 

USING  DP 

DP  PRIOR.! T Y 

ENPL  CURB  UNLOAD  TIME — CAR/TAXI 

FT  IF  PRETICKETEP 

FT  IF  USING  CURB  SIDE  CHECK  IN 

CURB  SIDE  CHECK  IN  TIME 

EMPTY  CAR  PARKING  TIME 

FT  IF  LEAVING  CURB 

INDIRECT  ADDR.  USING  VARIABLE 

RANDOM  PULLOUT  DELAY 

CURS  STORE 

UNLINK  1  FROM  QUEUE 

OP  STORE 

UNLINK  1  FROM  QUEUE 

COUNT  OF  VEH  ON  DEPARTING  ROAD 

FT  IF  NO  WELL-WISHERS  (•♦2) 


FORTM , 16, PH2 , P88, 1,0,1  LOC .MODE , ENPL , 0 , LOTNO  ONLY 
300  VEHICLE  TO  LOT 

RERXH+, 1 ,XH  RECIRC.  RDWY  COUNT 

PKLXM+.1.XH  ENTER  CAR  IN  PARKING  LOT 

PLI XH* ,  1  , XH  »'LH  COUNT  IN  PARKING  LOT 


FORTM, 1 1 , MH1 ( PHI ,3) ,PB6 
4.ENPC3.PH 
EBUSC .FIFO 
.CTRLO 


AIRLINE, MOOE 
LINK  TO  ENPLANING  BUS  USER  CHAIN 


•  BUS/ L IMO  (VEHICLE) 

• 

ENPC8  SAVEVALUE  AR0XH+.1.XH 
AOVANCE  VSENP2V 

UNLINK  EBUSC, CTRL1 .ALL 

SAVEVALUE  DRDXH+ , 1 , XH 
TERMINATE 


COUNT  OF  VEH  ON  ARRIVING  ROAD 
BUS/ LIMO  LOAD  TIME 

COUNT  OF  VEH  ON  DEPARTING  ROAO 


0 1 049C00 
01050000 
01051C00 
01052000 
01053000 
0 1 054C00 
01055000 
01056000 
0105TC00 
01 057 ’00 
0 1 05BC00 
01059000 
01059100 
01060000 
01061000 
0  062000 
01063000 
01064000 
01C30000 
01 066C00 
01067000 
01068C00 
01069000 
0 1 069’ 00 
01069200 
01069200 
01 069*00 
01069*50 
0 1 069500 
01070000 
01071  COO 
01072000 
OI073COO 
01074000 
0 1 075000 
01076000 
0 1 077C00 
01070000 
01079000 
01080000 
01 08 1000 
01033C00 
01083*00 
01084000 
01085000 
01080000 
0 1 087C00 
01088C00 
0 1 009000 
01 090C00 
01C91 COO 
01092000 
01093C00 
01094000 
01095000 
0 1 096C00 
01097000 
01080000 
010B9C00 
01100000 
01101000 
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4 


•...RECIRCULATION 

• 

C1RC0  ADVANCE 

SAVEVALUE 
SAVEVALUE 
TEST  E 
TRANSFER 
ASSIGN 
TEST  E 
TERMINATE 
ASSIGN 
TRANSFER 
C1RC1  ADVANCE 

SAVEVALUE 

SAVEVALUE 

TRANSFER 


«...E  N  T  R  A  N  C 

• 

ENTRO  HELPA 

ADVANCE 

TEST  E 

SAVEVALUE 

TRANSFER 

SAVEVALUE 

SAVEVALUE 

TRANSFER 


*...E  X  I  T 

I 

EXITO  HELPA 

ADVANCE 

TEST  E 

SAVEVALUE 

TRANSFER 

SAVEVALUE 

SAVEVALUE 

TRANSFER 


•...0  ATE  (  C 

• 

GATEO  HELPA 

ADVANCE 
TEST  E 
UNLINK 

OATES  GATE  LR 

SAVEVALUE 

SAVEVALUE 

LOGIC  S 

TEST  NE 

TERMINATE 

ASSIGN 

ASSIGN 

transfer 

0AT10  ASSIGN 
LINK 

GATE7  TEST  NE 


VSCIRCV 

RCDXH+ , 1 , XH 

RERXH-f ,  1  ,  XH 

P81 2 i 0 . 0CAR1 

. XHSCPKXH , DCAR1 , 1 

6.2.P8 

PB2,4,*f2 

1 .GRECF.PB 
.CTRLO 
VSCIRCV 
RERXH+.1.XH 
RCEXH+, 1 , XH 
, ENPCR 


F0RTM.12.PH2 
XHSTRVXH  , 
DPDIN , t , *+3 
DPLIN+ , PBS, XH 
.*+2 

ENDIN+, PBS.XH 
ENDOR+, PBS.XH 
.CTRLO 


01 

01 

01 

RECIRCULATE  01 

RECIRCULATION  TO  DEPLANING  01 

RECIRC.  ROADWAY  COUNT  01 

8R  IF  GREETER  WHO  HAS  ALREADY  MET 01 
FT  TO  ENTER  PK  OR  BR  TO  DEPL  ROADOI 
CHANGE  MODE  TO  PARKING  01 


PROC.  FN.  TO  CURB 

RECIRCULATE 
RECIRC.  ROADWAY  COUNT 
RECIRCULATION  TO  ENPLANING 
RETURN  TO  ENPLANING  ROAD 


FORTM , 7 . PH2 , P81 1 . FN»PB1 , PH7  IOC, CUR  PROC.NXTAOR.MH9R01 
XHSTRVXH  TRAVEL  TIME  TO  EXIT  01 

DOOUT , 1 , •♦3  01 

OPOUT+, PBS.XH  01 

,•+2  01 

EPOUT-f,  PBS.XH  01 

EXOOHf .PB5.XH  01 

.CTRLO  01 

01 
01 

IX)  01 

01 

,9)  LOC , GATE  01 

01 

FT  IF  NO  PAX  01 

110 , GAT 10  MATCH  WITH  PAX  01 

ONLY  ONE  AT  A  TIME  01 

NUMBER  OF  GREETERS  01 

PARKING  LOT  NUMBER  01 

LET  PAX  PICK  UP  INFO  01 

BR  IF  MODE  IS  CURB  (•+2)01 

01 

NO-ONE  IN  PARTY  01 

ROUTE  TO  GREETER  LEAVING  PARKING  01 

01 

WILL  GO  TO  GATES  WHEN  UNLINKED  01 

01 

FT  IF  HAVE  WELL-WISHERS  01 


NPLANING  PAX) 


FORTM, IS . PH2 ,MH1 (PHI , 9)  LOC. GATE 

XHSTRVXH 

PB13.0.GATE7  FT  IF  NO  PAX 

GREGC.CTRL1 , 1 .10PH.PH10.GAT10  MATCH  WITH  PAX 


PAS3L 

PAS32.PB5.XB 
PAS33.PB14.XB 
PAS3L 
PBS , 1 , *+2 

5.0.PB 

4.GRT03.PH 

•CTRL1 

4 , GATES , PH 

GREGC.FIFO 

PBS, PB1 3.GATE3 


ONLY  ONE  AT  A  TIME 
NUMBER  OF  GREETERS 
PARKING  LOT  NUMBER 
LET  PAX  PICK  UP  INFO 
BR  IF  MODE  IS  CURB 


102000 
1 03000 
1 04000 
105000 
106000 
106100 
107000 
108000 
109000 
109100 
109200 
110000 
111000 
112000 
112100 
113000 
114000 
11S000 
116000 
1 1 7000 
118000 
1 1 9000 
120000 
120100 
120200 
120200 
1 20100 
120S00 
121000 
122000 
123000 
124000 
125000 
126000 
127000 
127100 
127200 
127200 
127*00 
127500 
1 28000 
129000 
130000 
131000 
132000 
1 33000 
1 34000 
135000 
136000 
137000 
1 38000 
1 39000 
140000 
141000 
142000 
143000 
144000 
145000 
146000 
147000 
148000 
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SPLIT 
ASSIGN 
TRANSFER 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
TRANSFER 
GATE3  SAVEVAIUE 
GATE1  QUEUE 

savevalue 
MARK 
ENTER 
DEPART 
ASSIGN 
ADVANCE 
GATES  LEAVE 

GATE  LS 

SAVEVALUE 

TRANSFER 

GATE2  MSA7EVALUE 
TRANSFER 


t  ,*+3 
5.P813.PB 
, GATE3 
5- , PB1 3 , PB 
13.0.PB 

1 ,  MMG1 F , PB 

2, t ,PB 
.CTRLO 
PH2+.PB5.XH 
PH5.PB5 

GATXH+ , PB1 3 , XH 
PH5 

PH5.PS5 
1 1+.M1  ,PH 
VSGAT3V 
PH5 

PH5.GATE? 

PH2-,P85,XH 

.CTRLO 

l+.PHI .12.PB5.MH 
.CTRLO 


*  START  BOARDING  OPERATIONS 


SPLIT  MM  OFF  l*+3) 

DROP  WM 

SUBTRACT  OUT  PAX 
SET  PAX  TO  0 

WW  LEAVING  FROM  GATE  PROC  FN 
PROC  FN  POINTER 

CONGESTION 

PASS.  COUNT  A'  THE  GATE 
MARK  PAX  FOR  MA I  TING  TIME 
SERVICE 

AOD  MAI T I NG  TIME  TO  PH11 
GATE  SERVICE  TIME 

GATE  SET  MHEN  BOARDING  BEGINS 
CONGESTION 

PAX  MAI T I NG  AT  LOUNGE  TO  BQARO 


• 

GATE9  ADVANCE 
ASSIGN 
LOCIC  S 
ADVANCE 
LOGIC  R 
ASSIGN 
ASSIGN 
SAVEVALUE 
MS  AVE  VALUE 
TERMINATE 


VSGATtV 

5.VSGAT2V.PH 

PH5 

xhsbotxh 

PH5 

5.MH1 (PHI .9) .PH 
5 . MH9 ( PH5 , 3 ) . PH 
PH5-.MM1 (PMi , 12) ,XH 
1 .PHI ,12.0,MH 


ADVANCE  TO  BOARDING  TIME 

GATE  BOAROING  SMITCH 

GATE  BOARDING  SMITCH 
GATE  NO. 

POINT  NO 

REMOVE  PAX  BOARDING  FROM  POINT 

resf:t  to  ef.ro  for  late  pax  count 


...G  ROUND  TRANSPORTATION  (MiSC.  ) 


GKTOO  -  DEPLANING  PAX  -  SELF 
GRT01  -  ENPLANING  PAX  -  SELF 


*  DEPLANING  PAX 

* 

GRTOO  TEST  E 
ASSIGN 
HELPA 
ADVANCE 
TRANSFER 

• 

•  ENPLANING  PAX 

* 

GRT01  TEST  E 
ASSIGN 
HELPA 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
TRANSFER 

• 

•  GREETERS 


-  SELF 

MW  ;  PHI  ,3)  ,  t  0.  »+2 

14.3. PP 

FORTM, 1G.PH2 .P86.0 
XHTTSVXH 
i CTR13 

-  SELF 

MH 1 ( PH 1,3). 1 0,  «*2 

14.3. P0 

FORTM. 16,0. PB6, 1 
AROXH+. 1 ,XH 
PKLXH+,1 ,XH 
PLIXH+. 1 . XH 
.CTRLO 


TESt  for  SHUTTLE  pax  ( **2) 
ASSIGN  TO  PARK.  FACIL  3 
LOC.MOOE ,DEP 


test  FOR  SHUTTLE  PAX  ( •♦2 ) 
ASSIGN  TO  PARK.  FACIL  3 
•SPARE*, MODE. ENP 
COUNT  OF  VEH  ON  ARRIVING  ROAD 

enter  Car  in  parking  lot 
VEH.  COUNT  IN  PARK.  LOT 


01 1 49000 
Ot 150C00 
01 151C00 
01152000 
01152000 
0I154C00  . 
01155000 
01 156C00 
01 157000 
01161000 
01 161100 
01161110 
01162000 
01163000 
01163*00 
01165000 
01166000 
01167000 
01168000 
01169000 
01  172C00 
01173000 
01 174C00 
01175000 
01176000 
01177000 
01179000 
01 I79C00 
01 190000 
01 1 B 1  COO 
01 182000 
01  1 83000 
0  1  I34C00 
01184*00 
01 1B5C00 
01 106000 
01  lB?r  00 
01 tQRrOO 
01 109000 
0 l 1 9OO00 
01  I  9 l COO 
01  1 92C00 
O'  193000 
31 1U4000 
0 1 1 95C00 
Cl  19’j'OO 
01  195.:00 
0  1  i  9C-C0C 
Oi  197C00 
01  198C00 
01  199000 
0 1 200C00 
0  I  20 1  COO 
01201 '00 
01201200 
01202000 
01203000 
01204000 
01205000 
01206000 
01207000 


GRT02  TEST  E  MH1(PH1,3).10,*+2  TEST  FOR  SHUTTLE  PAX  (•♦2) 

ASSIGN  14(3, PB  ASSIGN  TO  PARK  FACIL  3 

HELPA  FORTM, 16,0, PB6, 0  lOC.MOOE.DEPL 

SAVEVALUE  ARDXH+, 1 ,XH  COUNT  OF  VEH  ON  ARRIVING  ROAD 

SAVE  VALUE  PXLXH-f ,  1  ,XH  ENTER  CAR  IN  PARKING  LOT 

SAVEVALUE  PLIXH+, 1 ,XH  VEH  COUNT  IN  PARKING  LOT 

TRANSFER  .CTRLO 

• 

«  GREETERS  TAKING  CAR  FROM  PARKING  TO  CURB 


GRT03  HELPA  FORTM,16.PH2,PSa,0 

ADVANCE  XHSTRVXH 
QUEUE  PH5 

ENTER  PH5 

OEPART  PHS 
AOVANCE  VSPAR1V 
LEAVE  PH5 

SAVEVALUE  PK  LXH- . 1 , XH 
SAVEVALUE  RERXH* , 1 , XH 
SAVEVALUE  PKCXH+ , 1 , XH 
ASSIGN  4.0CAR1 , PH 
TRANSFER  .CTRL1 


*...P  ARK  I  N  G  (OEPL  FA 
• 

PANKO  QUEUE  PHS 

MARK 

ENTER  PHS 

OCPART  PHS 

ASSIGN  1 1 + ,M1 , PH 

AOVANCE  VSPAR1V 

LEAVE  PHS 

SAVEVALUE  PKLXH-.1.XM 
SAVEVALUE  ORDXH# , 1 ,  XH 

TRANSFER  .CTRLO 


...R  E  N  T  A  C  A  R 

FOLLOWING  FOR  OEPL  PAX  RENT INO 


LOC.MOOE.DEPL 


EXIT  CAR  FROM  PARKING  LOT 
RECIRC-  RQAOWAY  COUNT 
PARKING  TO  CURB  RECIRCULATION 
ROUTE  TO  DEPLANING  CURB 


X  -  CARS) 

SERVICE 

MARK  PAX  FOR  WAITING  TIME 


ADO  WAITING  TIME  TO  PH11 
PARKING  EXIT  SERVICE  TIME 

EXIT  CAR  FROM  PARKING  LOT 
COUNT  OF  VEH  ON  DEPARTING  ROAD 


CAR 


01208C00 
01209CD0 
01209100 
01209200 
01210000 
01211000 
01212000 
01213000 
01214000 
01215000 
01216000 
01217000 
01218000 
01219000 
01220000 
01221000 
01222000 
01223000 
01224000 
01224100 
0122SOOO 
Q1226C00 
01227000 
01220000 
01229000 
01230000 
01231000 
01232C00 
01232100 
01233000 
0 1 234C00 
01234100 
0123SC00 
01236000 
01237C00 
0123SCOO 
01239000 
01240000 
01241000 
01242000 
01243000 
01244000 
01245C00 


RCARO  TEST  E 
ASSIGN 
HELPA 
AOVANCE 
SAVEVALUE 
RCAR1  QUEUE 
MARK 
ENTER 
DEPART 
ASSIGN 

RCAR2  AOVANCE 
LEAVE 
SAVEVALUE 
TRANSFER 


PB6.3.CTRL0 
10.FNSRCA2F.PB 
F0RTM.6 . PH2 , PB10 
XHSTRVXH 
PH2* . PBS , XH 
PHS. PBS 

PHS 

PH5 , PBS 

11+.M1.PH 

VSRCA1V 

PHS 

PH2-.PB5.XH 

.CTRLO 


RETURN  TO  CONTROL  IF  NOT  RRNTACARO 1246C00 


IAR  RENTAL  AGENCY  SELECT 
LOC . AGENCY 

TRAVEL  TIME  TO  CAR  RENTAL  AREA 
CONGESTION 
WAIT  FOR  FREE  AGENT 
EARK  PAX  FOR  WAITING  TIME 
KERVICE 

AOO  WAITING  TIME  TO  PH1 1 
EAR  RENTAL  PROCESSING  TIME 
SERVICE 
CONGESTION 


01247000 
01248000 
01249000 
01250000 
01254000 
012S4100 
012S5000 
012S6000 
01256100 
012S7000 
01258000 
0 1 239000 
01260000 


•  OEPL  PAX  IN  GROUND  TRANSPORT  WHO  HAVE  ALREADY  RENTED  CAR.  01262000 

•  NOTES  CURRENT  LOGIC  ASSUMES  PAX  PICKS  UP  CAR  AT  AGENCY  PARKING  LOT.  01263000 

•  01264000 
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RCAR9  HELPA 

AOVANCE 

SAVEVALUE 

TRANSFER 


FORTM, 1 6 , PH2 ■ P86 , 0 , PB 1 0 
XHSTRVXH 


LOC . MODE . 0  E  P/ ENP , AGENCY 


DROXH+ , 1 , XH 
.CTRLO 


COUNT  OF  CARS  ON  DEPARTING  ROAD 


ENPLANING  PAX  -  RENTACAR 

NOTE'-  CURRENT  LOGIC  ASSUMES  RENTAL  CAR  RETURNED  TO  A 

PARKING  LOT  (GENERAL  OR  AGENCY  LOT).  PROCESSING, 
IF  ANY,  IS  DONE  IN  THE  TERMINAL. 

RCAR8  HELPA  FORTM, 1 6 , 0 . PB6, 1 . P810  ,MOOE . OEP/ENP, AGENCY 

SAVEVALUE  AROXH+ , 1 , XH  COUNT  OF  VEH  ON  ARRIVING  ROAD 

TRANSFER  .CTRLO 


E  C  U  R  I  T  Y 


SECUO  HELPA 

ADVANCE 
TEST  NE 
TRANSFER 
SPLIT 
ASSIGN 
TRANSFER 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
TRANSFER 
SECU3  SAVEVALUE 
SECUI  QUEUE 
MARK 
ENTER 
DEPART 
ASSIGN 

SECU2  AOVANCE 
LEAVE 
SAVEVALUE 
MSAVEVALUE 
TRANSFER 


F0RTM,14,PH2,MH1(PH1 , 

XHSTRVXH 

PBS , PBi 3 , SECU3 

.XHSWWCXH,*+1 , SECU3 

1  .**3 

S.PB13. PB 

, SECU3 

5-.P813.PB 

13.0.P8 

1 , WWS1F.PB 

2,1 .PB 


9)  LOC,  GATE 

FT  7  f  UAL/C  UU 

FT  IF  LEAVING  MM  AT  SECURITY 
SPLIT  Ww  OFF  (•♦3) 

DROP  WW 

SUBTRACT  OUT  PAX 
SET  PAX  TO  0 

WW  LEAVING  FRCM  SEC  PROC  FN 
PROC  FN  POINTER 


.CTRLO 
PH2* , PBS , XH 
PHS.PSS 

PhS 


CONGESTION 

MARK  PAX  FOR  WAITING  TIME 
SERVICE 


PHS.PB5 
11*. Ml , PH 
VSSEC1 V 
PHS 

PH2-.P85.XH 

1 2* . VSSECNN , 1 .PBS. mm 

.CTRLO 


ADD  WAITING  TIME  TO  PH11 
SECURITY  CHECK  TIME 
SERVICE 
CONGESTION 

NO.  OF  PAX  LEAVING  SECURITY 


•  ...CONCESSIONS 


• 

LOBCO  HELPA 

AOVANCE 
SAVEVALUE 
AOVANCE 
SAVEVALUE 
TRANSFER 
CONCO  HELPA 

ADVANCE 

r  vevaluC 

ADVANCE 

SAVEVALUE 

TRANSFER 


FORTM, 24, PH2.PM1 . RN5.C1 , 1  LOC , F LT , RN , CLOCK , SWITCH 
XHSTRVXH 

PM2* , PBS , XH  CONGESTION 

PHS  WASTE  TIME  AT  CONCESSION 

PH2-.PBS.XH  CONGESTION 

•CTRLO 

FORTM, 24, PH2. PHI .RN5.C1 ,2  LOC . F LT . RN .CLOCK , SWITCH 
XHSTRVXH 

PH2* , PBS . XH  CONGESTION 

PH5  WASTE  TIME  AT  CONCESSION 

PH2-.P85.XH  CONGESTION 

.CTRLO 


*...T  R  A  N  S  F  E  R 


flights 


01265C00 
0 1 266000 
01267C00 
01260C00 
0  <  269C00 
0 1 270000 
01271  COO 
01272C00 
01273000 
01274000 
0I275C00 
O' 276000 
01277000 
0I270C00 
01279000 
O' 280000 
01281000 
01282C00 
0 1 2B3C00 
01284000 
01285000 
01286000 
01287000 
0 1 286000 
01289000 
0 1 290000 
01291  COO 
01292000 
01293000 
01294000 
01295000 
01299000 
01299050 
01300C00 
01 301  COO 
01302000 
01303000 
01 304000 
0 1 305000 
0 ' 305 ! 00 
01306000 
01 307C00 
0 1 308C00 
01309000 
01310000 
0131 1000 
01313C00 
01313000 
01314000 
0131 5000 
013I6C00 
01 J17C00 
01310000 
01319000 
01320000 
01321000 
01322C00 
01323000 
01324C00 
01325000 
01326000 
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XFLTO 

ASSIGN 

1  .TOPIF.PB 

ASSIGN 

2.2.PB  SKIP  COK 

ASSIGN 

13.1 ,PB 

ASSIGN 

5.1 ,PB 

HELPA 

FORTM, 18,0,0 

TEST  L 

MH1 (PHI , 1 ) ,0,»+3 

TEST  E 
TERMINATE 

MH5( 1 , 1 ) , 0 , XF  LT3 

SPLIT 

1 .XFLT3 

ADO  FLT  TO  XFR  FLT  TABLE 

TEST  G 

MH1 (PHI .1 1 ) , 0 , XFLTJ 

XFLT1 

ADVANCE 

VSXFL1 V 

HELPA 

FORTM, 18. PHI ,2 

XFLT2 

ASSIGN 

1*,1 ,PH 

TEST  L 
TERMINATE 

MH 1 ( PH 1 .1 ),0, XFLT5 

XFLTS 

TEST  E 

BVSXFL1 S. 1 , XF  LT2 

TRANSFER 

, XFLT 1 

DELETE  FLT  FROM  XFR  FLT  TABLE 

XFLT3 

TEST  G 

Mh5( 1,1) .0. XFLTB 

ASSIGN 

1 ,MH5( 1 . 1 ) ,PH 

XFLT7 

advance 

VSXFL2V 

ASSIGN 

5 , MH1 (PHI ,9) , PH 

ASSIGN 

3.MH1 (PHI .7) ,PB 

HELPA 

FORTM, 18. PHI .3 

SPLIT 

MH1 (PHI . 1 1  ) .XFLTB 

HELPA 

FORTM. 18. PHI . 1 

XFLT4 

ASSIGN 

1 ♦ , 1 , PH 

XFLT9 

TEST  L 
TERMINATE 

MH1 (PHI , 1 ) ,0. XFLTB 

XFLT6 

TEST  E 

BVSXFL10.1 .XFLT4 

TRANSFER 

,  XFLT7 

XFLTB 

aovance 

VSXTL3V 

transfer 

•CTRLO 

ASSIGN  PROCESS  FN 
JURSE  FOR  TDP1F  FUNCTION 
PAX  IN  PARTY 
TOTAL  IN  PARTY 

INITIALIZE  XFER  FLT  TABLE  »H5 
FT  IF  AT  END  OF  FLT  TABLE 
FT  IF  NO  XFER  FLTS 


BR  IF  NO  TPAX  FOR  NEXT  FLT 

TEST  FOR  END  OF  TABLE 
BR  IF  ARRV  FLT  OR  NO  TPAX 


BR  IF  XFER  FLT  TABLE  EMPTY 
FIRST  FLT  TO  DELETE 

GATE  NO 

TYPE  FLT  ( DOM.COM. INT) 

MH1  ROM  NO..  FLAG  FOR  TICK  cnter 
CREATE  REMAINING  XFER  PAX 
DELETE  FLT  FROM  TABLE 

TEST  FOR  ENO  OF  TABLE 

BR  IF  ARRV  FLT  OR  NO  TPAX 

STAGGER  PAX  TO  SECURITY 


.ERROR  CHAIN 


ERROR  LINK 


COLLECTS  XACS  CAUSING  SELECTED  ERRORS.  PM4  MILL 
NORMALLY  GIVE  CLUE  TO  NATURE  OF  PROBLEM. 

ERRCH.FIFO 


MMEN  REMOVING  ANY  MODULE,  UNCOMMENT  ENTRY  POINT  CARD  A  OTHERS  NOTED 
NOTE:  TO  REMOVE  “CHECK  IN’ ,  UNCOMMENT  CHEKO.  CHEKI.  AND  CHEK2. 

TO  REMOVE  “OEPLCURB* .  UNCOMMENT  OPCLO  ANO  0PCL9. 

TO  REMOVE  “GATE  l ENPLANING  PAX)*,  UNCOMMENT  GATE  AND  GATE9. 

TO  REMOVE  “RENTACAR* ,  UNCOMMENT  RCARO ,  RCAR8  ANO  RCARS. 


• 

•CHEKO 

TRANSFER 

•CTRLO 

•CHEKI 

TRANSFER 

.CTRLO 

•CHEK2 

TRANSFER 

.CTRLO 

CUSTO 

TRANSFER 

•CTRLO 

•OCARO 

TRANSFER 

.CTRLO 

•OPLCO 

TRANSFER 

.CTRLO 

0I327C00 
01328COO 
01329C00 
01330C00 
01 331  COO 
01332000 
01333C00 
01334000 
01 335C00 
01336000 
01337C00 
01338000 
01339000 
01340000 
01341000 
01342000 
01343000 
0 1 344000 
01345000 
01346000 
0  1 347C00 
01348000 
01349C00 
01350C00 
01351  COO 
01352000 
01353C00 
01354C00 
01355C00 
01356C00 
0 1 357C00 
0 1 358CQ0 
01359000 
01360000 
01361000 
01 J62C00 
0 1 363C00 
01364000 
01365C00 
01366000 
01367000 
01368000 
0 1 369000 
0 1 370CO0 
01371000 
01372C00 
01373000 
01374000 
01375000 
:  0 1 376C00 
0 1 377C00 
0 1 37BC00 
01379000 
01380000 
01381000 
01382000 
01383000 
01384000 
01385000 
01386000 
01387C00 
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♦0PLC9 

•ENPCO 

•EXITO 

•GATEO 

•GATES 

•GATE9 

IMMIO 

•PARKO 

•RCARO 

•RCAR8 

•RCAR9 

•SECUO 


transfer 

transfer 

transfer 

TRANSFER 

transfer 

TERMINATE 

TRANSFER 

TRANSFER 

TRANSFER 

transfer 

transfer 

transfer 


.ctrlo 

.CTRLO 
• CTRLO 
.CTRLO 
.CTRLO 

.CTRLO 

.CTRLO 

.CTRLO 

.CTRLO 

.CTRLO 

.CTRLO 


.CHANGE  CARO  READER 


generate 
CHCOO  HELPA 

» 

TEST  G 

ASSIGN 

SPLIT 

AOVANCE 
TEST  E 
TRANSFER 
CHGOI  ASSIGN 

SAVEVALUt 

ASSIGN 

• 

ASSIGN 

ASSIGN 

• 

MS A VE VALUE 
S*VCVALUf 
HTtAVF  VALUE 
SAVE VALUE 
TEST  E 
GATE  SNF 
ENTER 
LEAVE 
TERMINATE 
CHOOa  GATE  SNF 
HELPA 

• 

TEST  E 

SAVEVALUE 

TERMINATE 


.  .  .  *  .  120.2PH 
FORTM, 23 . 1 

XHSNSCXH , 0 , ft +3 

t - . 1 , PH 

XHSNSCXM , CHGOI , 1  PH 

XFSCHGXF 
XHSI4SCXH.0 
.  CHGOO 
2 . phi . PM 
SAVXH.PH1.XH 
2*. 30. PM 

1 , MH7(PH1 ,1  ) .PH 

2 .  MM7 ( PM2 i  1  ) .PH 

7.XHSSAVXH,  1  . 0  .  MH 
SAVXHft.30.XH 
7 . XHSSA VXH . 1 . 0 , MH 
NSCXH- . 1 . XM 
PH2.0.CHG02 

PHI , ftft3 

PHI 

PHI 

PHI 

FORTM. 23, 2, PHI . PH2 

XHSSLCXH. 1 , CHG02 
SLCXH.O.XH 


PERFORM  PREVIOUS  AND  READ  NEXT 
CHANGE  CARO 

IF  NO  STORAGE  CHANGES.  (*0) 
DON'T  SPLIT 


01388000 
01389000 
01390000 
01391000 
01392000 
01393000 
01394000 
01395C00 
01396C00 
01397000 
0 1 398000 
01399000 
0 1 400C00 
01401C00 
01402000 
01403000 
01404000 
01405000 
01406C00 
01407000 
0140QCOO 
01409000 
01410000 
0141 1000 
01412000 


SPLIT  1  X AC  TO  CHANGE  EACH 
STORAGE,  SEOUENCED  IN  PHI 

WAIT  TILL  NEXT  CHANGE  - 

IF  WAIT  WAS  0.  WAIT  TILL  MH7  USEDOI413000 

01 41 4000 
01415000 

SAVE  MH?  ROW  POINTER  01416C00 

PM2  POINTS  TO  SECOND  PORTION  01417000 

OP  MH7  0141 BoOO 

CHANGE  PKI  FROM  MM7  ROW  REFERENCED ' 4 1 9000 
TO  STORAGE  SUBSCRIPT  (SET  IN  FQRT01420C00 


CHANGE  PH 2  TO  ACQUIRED  STORAGE 
CAPACITY  (SET  IN  FORTM) 

ZERO  OUT  MH7 


COUNT  DOWN  OF  XACS  USING  MM7 
FT  IF  NO  LOWERING  NEEDED 
IP  NEW  CAPACITY  HIGHER  ...  I***) 
ALLOW  XACS  .lAIIlNG  ON  DELAY 
CHAIN  TO  START  MOVING 


WAIT  TILL  SOMEONE  LEAVES 
PUSH  STORAGE  CAPACITY  DOWN 

current  contents 

STORAGE  LOWERING  COMPLETE 


TO 


TIMER 

INITIAL  CALL 


GENERATE 

AOVANCE 


INITIAL  PORTRAN  CALL 

TO  FORTRAN  HELP  BLOCK  T01 

READ  FLIGHT  SCHEDULE  AND  GEOMETRY  DATA, 
INITIALIZE  MATRIX  BASE  AOORESSES, 

EXECUTE  CLINK  ANO  MNLINK. 


...  1  . 127, 'PH 
XHSCLKXH 


NEEDED  TO  DEFINE  ‘CLKXH-  AS  XH 


01 >21000 
014C2POO 
0 1 423C00 
01  42-1C00 
0M2SP00 
01425000 
01427C00 
0 1 428000 
C1429C00 
O1430COO 
01431000 
01432000 
01433000 
01434000 
01435000 
01436000 
01437000 
01438000 
01439000 
0 1 440C00 
01441000 
0 1 442000 
01443C00 
01444000 
01445C00 
01446000 
01447000 
01448000 
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ST0P1 


1 

.cmhoi/ 

.CML02 
, ENOXF/ 

.cusos/ 

.RCARO/ 
.TRX99/ 
.EPQCS/ 
. JORLX 


SAVEVALUE 

INCXH.60.XH 

SET  •CLOCK*  INCREMENT 

01440000 

HELPC 

CLINK, 1 

01450COO 

HELRA 

FORTM.1,1 

01 451  COO 

TEST  S 

PHI ,0, *+3 

(*♦3) 

01452C00 

SPLIT 

1  .STOPO 

01453C00 

TERMINATE 

PHI 

01454C00 

SPLIT 

1  ,*+4 

(*+4) 

01455000 

CATE  LS 

vIQBLS  SET 

IF  ERROR  COUNT  OVER  LIMIT 

01456000 

SPLIT 

1  ,  ST0P1 

01457000 

TERMINATE 

100 

01456000 

SPLIT 

1,*+5 

{•♦8) 

01459000 

AOVANCE 

VS INC IV 

CLOCK  INCREMENT 

01460000 

HELPA 

F0RTM.21 .XHS1NCXH 

01461000 

AOVANCE 

XHSINCXH 

CLOCK  INCREMENT 

01462000 

TRANSFER 

.•-2 

(•“2) 

01463000 

ASSIGN 

1 .127, PH 

LOOP  COUNTER 

01464000 

MSAVEVALUE 

i ,  i , phi ,fnsranof,ml 

FILL  ML1  WITH  RANOOM  NUMBERS 

01465000 

LOOP 

1  PH, •— 1 

01466000 

PRIORITY 

126 

ALLOWS  ‘CLOCK*  TO  OCCUR  1ST 

01467000 

AOVANCE 

XFSENOXF 

AOVANCE  TO  ENO  OF  RUN 

01468000 

HELPA 

FOR TM, 20, Cl 

01469000 

PRINT 

» •  C ,  C 

CLOCK  TIME 

01469010 

PRINT 

..w,c 

BLOCK  COUNTS 

01469020 

PRINT 

..s,c 

STORAGE  STATISTICS 

01469030 

PRINT 

..Q.C 

QUEUE  STATISTICS 

01469040 

PRINT 

..u.c 

USER  CHAIN  STATISTICS 

01469060 

PRINT 

•  »T,C 

TABLE  STATISTICS 

01469070 

PRINT 

..X.C 

CONTENTS  OF  FULLWORO  SAVEVALUBS 

0 1 469060 

PRINT 

,  , XH,C 

CONTENTS  OF  HALFWORO  SAVEVALUES 

01469090 

PRINT 

• , XB,C 

CONTENTS  OF  BYTE  SAVEVALUES 

01469100 

PRINT 

> ,XL,C 

CONTENTS  OF  FLOATING  POINT  SAVE 

01469110 

PRINT 

, ,  LG.C 

STATUS  OF  LOGIC  SWITCHES 

01469190 

TERMINATE 

1 

01470000 

01471000 

OENERATE 

11700. .,1 

01472000 

HELPA 

FORTH, 22 

01473000 

AOVANCE 

300 

01474000 

TRANSFER 

.•-a 

01475000 

01476000 

GENERATE 

12300,,, 1 

01477000 

TERMINATE 

1 

01479000 

01478100 

TIMER  FOR  CHANGING  HOURLY  TABLE  FOR  PAX  WAITING  TIME 

01478200 

GENERATE 

• , ,  1 , ,  0 

GENERATE  TIMER  TRANSACTION 

01478200 

SAVEVALUE 

PXTBN^, 1 , XB 

increment  number  OF  TABLE 

01478*00 

AOVANCE 

3000 

AOVANCE  1  HOUR 

01478500 

transfer 

,•-2 

01478C00 

01479000 

FUNCTION  PHI 
,  CMH02/ , CMH03/ 

.TRVXH/.80TXH/ 
.RCRQS/.OPCBS/ 
,  BAOC  0/ , DPLCO/ 
,CONXH/,CHQXF/ 
,GRTOO/ ,GRTXL/ 


•  L57  MNEMONIC  LINK  FUNCTION-SEE  FORTRAN  CALL 
,  CMH04/ , CMHOO/ , CMM07/ , CMHOR/ , CMHOB 

.  ABUXN/ , QBUXH/ , X  FRXH/ , XFAXH/ , XFOXM/ , SCLXH/ , CLKXH 
,  EPCBS/ .CHKQS/ , SEC9S/ , GAQSL/ , PARQS/ , IMMQS/ , TICOS 
•CHEK2/ , CHEK3/ , COTRO/ , ERROR/ , SBCUO/ , CTRLO/, CTRL1 
.  NSCXH/ , S  LCXH/ . DROPS/ , OPQCS/ . WWGXH/ , OROX L/ , CROPS 
.CRKXH/ , CRBXM/ , COT XL/ , RCBXL 


SIMULATE 

START 


9 

1  ,NR 


01480000 
01481000 
01482C00 
0 1 4B3C00 
014B4C00 
014BSC00 
0 1 <86000 
014B7CO0 
014BBC00 
01489000 
01490000 
014910C0 
01492000 
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*  RESET 

START  1,NP 

NOXREF 
REPORT 

•HMS  TITLE  1, FLIGHT  SCHEDULE 

HMS  TITLE  2. AIRLINE  INFORMATION  TABLE 

•HMS  TITLE  3.TA8LF.  OF  POINTS 

•HMS  TITLE  4.x  ENPLANING  PAX  TICKETED 

*  HMS  TITLE  5. TRANSFER  FLIGHT  TAB'.E 

HMS  TITLE  6. WALKING  TIME  BETWEEN  POINTS 

HMS  TITLE  7, RANDOM  NUMBERS  FOR  BAGS 

•HMS  TITLE  8. USED  IN  MATRIX  9 

•HMS  TITLE  9. FACILITY  TABLE 

HMS  TITLE  11.  COUNTER  FCRPAX  LEAVING  CONCOURSE 

HMS  TITLE  12,  COUNTER  FOR  PAX  LEAVING  SECURITY 

HMS  TITLE  13.  COUNTER  FOR  PAX  LEAVING  AIRLINES 

•LMS  TITLE  1 .RANDOM  NUMBER  TABLE 

•LMS  TITLE  2.GR0UN0  TRANSACTION  MODAL  CHOICE 

*  OUTPUT  REMOVE  •  TO  GET  ALL  STATICS 


END 


01492002 
0 1 492C04 
014920 1 0 
01492015 
01492020 
01492030 
01492040 
01492050 
01492060 
01492070 
01492080 
01492090 
01492*00 
01492*10 
01492120 
01492130 
01492140 
01492150 
01492160 
01493000 
01494000 
0149S000 


